diff options
Diffstat (limited to 'server/src/Thermoprint')
| -rw-r--r-- | server/src/Thermoprint/Server/Printer/Generic.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 | |||
| 58 | print printout handle = liftIO $ runReaderT (bracket_ initialize (render printout) finalize) handle >> return Nothing | 58 | print printout handle = liftIO $ runReaderT (bracket_ initialize (render printout) finalize) handle >> return Nothing |
| 59 | handlers = [ Handler $ return . Just . IOError . (show :: IOException -> String) | 59 | handlers = [ Handler $ return . Just . IOError . (show :: IOException -> String) |
| 60 | , Handler $ return . Just . EncError | 60 | , Handler $ return . Just . EncError |
| 61 | , Handler $ return . Just | ||
| 61 | ] | 62 | ] |
| 62 | 63 | ||
| 63 | type Render = ReaderT Handle IO () | 64 | type Render = ReaderT Handle IO () |