From c2153f196c64593a252bc0fbbc3d503628fe896f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 1 Mar 2016 09:57:25 +0100 Subject: printers --- tprint/src/Instances.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'tprint/src/Instances.hs') 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) import Text.Show.Pretty (Value, PrettyVal(..), dumpStr) import qualified Text.Show.Pretty as PShow (Value(..)) -import Thermoprint.Client (Scheme(..), BaseUrl(..), PrinterId(..), JobId(..), DraftId(..), Range(..)) +import Thermoprint.Client (Scheme(..), BaseUrl(..), PrinterId(..), JobId(..), DraftId(..), Range(..), PrinterStatus(..), JobStatus(..), PrintingError(..), EncodingException(..)) instance PrettyVal Scheme instance PrettyVal BaseUrl @@ -23,3 +23,7 @@ instance PrettyVal UTCTime where instance PrettyVal Text where prettyVal = prettyVal . T.unpack +instance PrettyVal PrinterStatus +instance PrettyVal JobStatus +instance PrettyVal PrintingError +instance PrettyVal EncodingException -- cgit v1.2.3