aboutsummaryrefslogtreecommitdiff
path: root/server/src/Thermoprint/Server/Printer
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2016-01-24 07:04:53 +0000
committerGregor Kleen <gkleen@yggdrasil.li>2016-01-24 07:04:53 +0000
commit7d3df6adce65e8840ef651a8a02a34a1a02083aa (patch)
treea5f82445047b6a4eefb803c0f3ee7dec5d1247f7 /server/src/Thermoprint/Server/Printer
parent6434397a3d103547b563ada27fd64c38cb05e1f0 (diff)
downloadthermoprint-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.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]"