From 75d9fe614dca572aa1d7cfa53553e9c103eb2dd0 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Wed, 25 Jan 2017 15:54:54 +0100
Subject: Cleanup test suite

---
 server/test/Thermoprint/Server/Printer/GenericSpec.hs | 7 +------
 server/thermoprint-server.cabal                       | 2 +-
 server/thermoprint-server.nix                         | 2 +-
 3 files changed, 3 insertions(+), 8 deletions(-)

(limited to 'server')

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!")
diff --git a/server/thermoprint-server.cabal b/server/thermoprint-server.cabal
index c80351b..eae3754 100644
--- a/server/thermoprint-server.cabal
+++ b/server/thermoprint-server.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                thermoprint-server
-version:             2.0.1
+version:             2.0.2
 synopsis:            Server for thermoprint-spec
 -- description:         
 homepage:            http://dirty-haskell.org/tags/thermoprint.html
diff --git a/server/thermoprint-server.nix b/server/thermoprint-server.nix
index 71a4211..41e645a 100644
--- a/server/thermoprint-server.nix
+++ b/server/thermoprint-server.nix
@@ -9,7 +9,7 @@
 }:
 mkDerivation {
   pname = "thermoprint-server";
-  version = "2.0.1";
+  version = "2.0.2";
   src = ./.;
   isLibrary = true;
   isExecutable = true;
-- 
cgit v1.2.3