diff options
Diffstat (limited to 'server/src/Thermoprint/Server/Printer/Debug.hs')
-rw-r--r-- | server/src/Thermoprint/Server/Printer/Debug.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Thermoprint/Server/Printer/Debug.hs b/server/src/Thermoprint/Server/Printer/Debug.hs index d7ee12a..b8580b8 100644 --- a/server/src/Thermoprint/Server/Printer/Debug.hs +++ b/server/src/Thermoprint/Server/Printer/Debug.hs | |||
@@ -26,7 +26,7 @@ debugPrint :: PrinterMethod | |||
26 | debugPrint = PM $ (>> return Nothing) . $(logDebugS) "Printer.Debug" . T.pack . show . cotext' | 26 | debugPrint = PM $ (>> return Nothing) . $(logDebugS) "Printer.Debug" . T.pack . show . cotext' |
27 | 27 | ||
28 | cotext' :: Printout -> Text | 28 | cotext' :: Printout -> Text |
29 | cotext' = mconcat . intersperse "\n\n" . map (mconcat . map cotext'' . toList) . toList | 29 | cotext' = mconcat . intersperse "\n\n" . map (mconcat . map cotext'' . toList . getChunks) . toList . getParagraphs |
30 | where | 30 | where |
31 | cotext'' (Cooked b) = cotext b | 31 | cotext'' (Cooked b) = cotext b |
32 | cotext'' (Raw _) = "[Raw]" | 32 | cotext'' (Raw _) = "[Raw]" |