Broken existentially quantified printer config

1 files changed, 32 insertions, 0 deletions

diff --git a/server/src/Thermoprint/Server/Printer/Debug.hs b/server/src/Thermoprint/Server/Printer/Debug.hs
new file mode 100644
index 0000000..81e43a3
--- /dev/null
+++ b/server/src/Thermoprint/Server/Printer/Debug.hs
@@ -0,0 +1,32 @@
+{-# LANGUAGE EmptyDataDecls    #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RankNTypes        #-}
+
+module Thermoprint.Server.Printer.Debug
+       ( Debug
+       ) where
+
+import Control.Monad.IO.Class
+import Control.Monad.Trans.Resource
+
+import Data.Text.Lazy (Text)
+import qualified Data.Text.Lazy as TL
+import qualified Data.Text.Lazy.IO as TL
+
+import Thermoprint.Printout
+import Thermoprint.Server.Printer
+
+import Data.List (intersperse)
+import Data.Foldable (toList)
+import Data.Monoid
+
+data Debug
+
+-- instance IsPrinter Debug where
+--   toMethod _ = (>> return Nothing) . liftIO . TL.putStrLn . cotext'
+
+-- cotext' :: Printout -> Text
+-- cotext' = mconcat . intersperse "\n\n" . map (mconcat . map cotext'' . toList) . toList
+--   where
+--     cotext'' (Cooked b) = cotext b
+--     cotext'' (Raw _)    = "[Raw]"