From 109163fc4d602e91f2b56ddce06c76d949e6ac2e Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Wed, 8 Mar 2017 14:55:02 +0100
Subject: [PATCH] Remove traceShow statement
fixes #15
---
src/Language/Haskell/Brittany/Transformations/Alt.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Language/Haskell/Brittany/Transformations/Alt.hs b/src/Language/Haskell/Brittany/Transformations/Alt.hs
index 8117c65..acf5a04 100644
--- a/src/Language/Haskell/Brittany/Transformations/Alt.hs
+++ b/src/Language/Haskell/Brittany/Transformations/Alt.hs
@@ -452,7 +452,7 @@ getSpacing !bridoc = rec bridoc
BDFForwardLineMode bd -> rec bd
BDFExternal _ _ _ txt -> return $ LineModeValid $ case Text.lines txt of
[t] -> VerticalSpacing (Text.length t) VerticalSpacingParNone False
- x -> traceShow x $ VerticalSpacing 999 VerticalSpacingParNone False
+ _ -> VerticalSpacing 999 VerticalSpacingParNone False
BDFAnnotationPrior _annKey bd -> rec bd
BDFAnnotationKW _annKey _kw bd -> rec bd
BDFAnnotationRest _annKey bd -> rec bd