From 1276f480bb931f6b82e5c8f35e535e3b5eb2bd7a Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 14 Feb 2016 22:27:57 +0000 Subject: Handle PrintingErrors --- server/src/Thermoprint/Server/Printer/Generic.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'server/src/Thermoprint') diff --git a/server/src/Thermoprint/Server/Printer/Generic.hs b/server/src/Thermoprint/Server/Printer/Generic.hs index bf6ce3b..33172ef 100644 --- a/server/src/Thermoprint/Server/Printer/Generic.hs +++ b/server/src/Thermoprint/Server/Printer/Generic.hs @@ -58,6 +58,7 @@ genericPrint path = PM $ flip catches handlers . withLockedFile path . print print printout handle = liftIO $ runReaderT (bracket_ initialize (render printout) finalize) handle >> return Nothing handlers = [ Handler $ return . Just . IOError . (show :: IOException -> String) , Handler $ return . Just . EncError + , Handler $ return . Just ] type Render = ReaderT Handle IO () -- cgit v1.2.3