Remove traceShow statement

fixes #15
2017-03-08 14:55:02 +01:00 · 2017-03-08 14:55:02 +01:00 · 109163fc4d
parent 7dc6c525eb
commit 109163fc4d
1 changed files with 1 additions and 1 deletions
--- 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