diff options
Diffstat (limited to 'tprint/src/Instances.hs')
| -rw-r--r-- | tprint/src/Instances.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tprint/src/Instances.hs b/tprint/src/Instances.hs index cffb8b0..7814bbc 100644 --- a/tprint/src/Instances.hs +++ b/tprint/src/Instances.hs | |||
| @@ -8,7 +8,7 @@ import Data.Time (UTCTime, formatTime, defaultTimeLocale) | |||
| 8 | import Text.Show.Pretty (Value, PrettyVal(..), dumpStr) | 8 | import Text.Show.Pretty (Value, PrettyVal(..), dumpStr) |
| 9 | import qualified Text.Show.Pretty as PShow (Value(..)) | 9 | import qualified Text.Show.Pretty as PShow (Value(..)) |
| 10 | 10 | ||
| 11 | import Thermoprint.Client (Scheme(..), BaseUrl(..), PrinterId(..), JobId(..), DraftId(..), Range(..)) | 11 | import Thermoprint.Client (Scheme(..), BaseUrl(..), PrinterId(..), JobId(..), DraftId(..), Range(..), PrinterStatus(..), JobStatus(..), PrintingError(..), EncodingException(..)) |
| 12 | 12 | ||
| 13 | instance PrettyVal Scheme | 13 | instance PrettyVal Scheme |
| 14 | instance PrettyVal BaseUrl | 14 | instance PrettyVal BaseUrl |
| @@ -23,3 +23,7 @@ instance PrettyVal UTCTime where | |||
| 23 | instance PrettyVal Text where | 23 | instance PrettyVal Text where |
| 24 | prettyVal = prettyVal . T.unpack | 24 | prettyVal = prettyVal . T.unpack |
| 25 | 25 | ||
| 26 | instance PrettyVal PrinterStatus | ||
| 27 | instance PrettyVal JobStatus | ||
| 28 | instance PrettyVal PrintingError | ||
| 29 | instance PrettyVal EncodingException | ||
