[Bugfix] Variables in "-n" flag.
[darcs-mirror-sem_syn.git] / SemSyn.hs
index 4081151..e5b60c6 100644 (file)
--- a/SemSyn.hs
+++ b/SemSyn.hs
@@ -59,7 +59,7 @@ outputCode conf isShapify orig ast =
                   ppr (typeFilter ast)
          PseudoCode  -> vcat
                 [ ppr (constructTypeDecl p2)
-                , ppr orig $$  ppr (typeFilter p1) $$ ppr (typeFilter p2) $$ ppr (typeFilterT p3)
+                , ppr orig $$ ppr (typeFilter p1) $$ ppr (typeFilter p2) $$ ppr (typeFilterT p3)
                 ]
          HaskellCode -> vcat $
                 [ text "import Control.Monad"