diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-24 07:04:53 +0000 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-24 07:04:53 +0000 |
commit | 7d3df6adce65e8840ef651a8a02a34a1a02083aa (patch) | |
tree | a5f82445047b6a4eefb803c0f3ee7dec5d1247f7 /server/src/Thermoprint/Server/Printer | |
parent | 6434397a3d103547b563ada27fd64c38cb05e1f0 (diff) | |
download | thermoprint-7d3df6adce65e8840ef651a8a02a34a1a02083aa.tar thermoprint-7d3df6adce65e8840ef651a8a02a34a1a02083aa.tar.gz thermoprint-7d3df6adce65e8840ef651a8a02a34a1a02083aa.tar.bz2 thermoprint-7d3df6adce65e8840ef651a8a02a34a1a02083aa.tar.xz thermoprint-7d3df6adce65e8840ef651a8a02a34a1a02083aa.zip |
Revert "Broken existentially quantified printer config"
This reverts commit 6434397a3d103547b563ada27fd64c38cb05e1f0.
Diffstat (limited to 'server/src/Thermoprint/Server/Printer')
-rw-r--r-- | server/src/Thermoprint/Server/Printer/Debug.hs | 32 |
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 | |||
5 | module Thermoprint.Server.Printer.Debug | ||
6 | ( Debug | ||
7 | ) where | ||
8 | |||
9 | import Control.Monad.IO.Class | ||
10 | import Control.Monad.Trans.Resource | ||
11 | |||
12 | import Data.Text.Lazy (Text) | ||
13 | import qualified Data.Text.Lazy as TL | ||
14 | import qualified Data.Text.Lazy.IO as TL | ||
15 | |||
16 | import Thermoprint.Printout | ||
17 | import Thermoprint.Server.Printer | ||
18 | |||
19 | import Data.List (intersperse) | ||
20 | import Data.Foldable (toList) | ||
21 | import Data.Monoid | ||
22 | |||
23 | data 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]" | ||