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 | ||