aboutsummaryrefslogtreecommitdiff
path: root/server/src/Thermoprint/Server/Printer/Debug.hs
diff options
context:
space:
mode:
Diffstat (limited to 'server/src/Thermoprint/Server/Printer/Debug.hs')
-rw-r--r--server/src/Thermoprint/Server/Printer/Debug.hs32
1 files changed, 0 insertions, 32 deletions
diff --git a/server/src/Thermoprint/Server/Printer/Debug.hs b/server/src/Thermoprint/Server/Printer/Debug.hs
deleted file mode 100644
index 81e43a3..0000000
--- a/server/src/Thermoprint/Server/Printer/Debug.hs
+++ /dev/null
@@ -1,32 +0,0 @@
1{-# LANGUAGE EmptyDataDecls #-}
2{-# LANGUAGE OverloadedStrings #-}
3{-# LANGUAGE RankNTypes #-}
4
5module Thermoprint.Server.Printer.Debug
6 ( Debug
7 ) where
8
9import Control.Monad.IO.Class
10import Control.Monad.Trans.Resource
11
12import Data.Text.Lazy (Text)
13import qualified Data.Text.Lazy as TL
14import qualified Data.Text.Lazy.IO as TL
15
16import Thermoprint.Printout
17import Thermoprint.Server.Printer
18
19import Data.List (intersperse)
20import Data.Foldable (toList)
21import Data.Monoid
22
23data Debug
24
25-- instance IsPrinter Debug where
26-- toMethod _ = (>> return Nothing) . liftIO . TL.putStrLn . cotext'
27
28-- cotext' :: Printout -> Text
29-- cotext' = mconcat . intersperse "\n\n" . map (mconcat . map cotext'' . toList) . toList
30-- where
31-- cotext'' (Cooked b) = cotext b
32-- cotext'' (Raw _) = "[Raw]"