Cleanup test suite

1 files changed, 1 insertions, 6 deletions

diff --git a/server/test/Thermoprint/Server/Printer/GenericSpec.hs b/server/test/Thermoprint/Server/Printer/GenericSpec.hs
index 80096b0..e535754 100644
--- a/server/test/Thermoprint/Server/Printer/GenericSpec.hs
+++ b/server/test/Thermoprint/Server/Printer/GenericSpec.hs
@@ -29,8 +29,6 @@ import Data.Word
 import Data.Sequence (Seq)
 import qualified Data.Sequence as Seq
 
-import Debug.Trace
-
 instance IsString Line where
   fromString = (\(Right l) -> l) . text . TL.pack
 
@@ -40,7 +38,7 @@ spec = do
     zipWithM_ example [1..] examples
   where
     example n (s, ts) = let str = show s
-                        in specify str $ traceDump (mkPrintout . Printout . fmap (Paragraph . Seq.singleton) . fmap Cooked $ s) == ts
+                        in specify str $ (mkPrintout . Printout . fmap (Paragraph . Seq.singleton) . fmap Cooked $ s) == ts
 
 final, initial :: L.ByteString
 initial  = esc [64] <> esc [64]
@@ -52,9 +50,6 @@ esc = L.BS.pack . (27:)
 p :: L.ByteString -> L.ByteString
 p = (<> final) . (initial <>)
 
-traceDump :: L.ByteString -> L.ByteString
-traceDump bs = traceShow (map (\b -> (b, (toEnum $ fromEnum b) :: Char)) $ L.BS.unpack bs) bs
-
 examples :: [(Seq Block, L.ByteString)]
 examples = [ ( [Line (JuxtaPos ["Hello", HSpace 1, "World!"])]
              , p "Hello World!")