diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 09:57:25 +0100 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 09:57:25 +0100 |
commit | c2153f196c64593a252bc0fbbc3d503628fe896f (patch) | |
tree | e2218871dc70a304cd37f26c895d524f0cc6456f /tprint/src/Instances.hs | |
parent | aeceaafdab661f6e0d63ef9695396bc7dfb8619d (diff) | |
download | thermoprint-c2153f196c64593a252bc0fbbc3d503628fe896f.tar thermoprint-c2153f196c64593a252bc0fbbc3d503628fe896f.tar.gz thermoprint-c2153f196c64593a252bc0fbbc3d503628fe896f.tar.bz2 thermoprint-c2153f196c64593a252bc0fbbc3d503628fe896f.tar.xz thermoprint-c2153f196c64593a252bc0fbbc3d503628fe896f.zip |
printers
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 | ||