@@ -73,7 +73,7 @@ literals = mkPattern' match
73 , withIndent $ do
73 , withIndent $ do
74 jss <- forM sts prettyPrintJS'
74 jss <- forM sts prettyPrintJS'
75 indentString <- currentIndent
75 indentString <- currentIndent
76− return $ intercalate "\n" $ map (++ "; ") $ map (indentString ++) jss
76+ return $ intercalate "\n" $ map (++ ";") $ map (indentString ++) jss
77 , return "\n"
77 , return "\n"
78 , currentIndent
78 , currentIndent
79 , return "}"
79 , return "}"
@@ -194,7 +194,7 @@ prettyPrintJS :: [JS] -> String
194prettyPrintJS sts = fromMaybe (error "Incomplete pattern") . flip evalStateT (PrinterState 0) $ do
194prettyPrintJS sts = fromMaybe (error "Incomplete pattern") . flip evalStateT (PrinterState 0) $ do
195 jss <- forM sts prettyPrintJS'
195 jss <- forM sts prettyPrintJS'
196 indentString <- currentIndent
196 indentString <- currentIndent
197− return $ intercalate "\n" $ map (++ "; ") $ map (indentString ++) jss
197+ return $ intercalate "\n" $ map (++ ";") $ map (indentString ++) jss
199prettyPrintJS' :: JS -> StateT PrinterState Maybe String
199prettyPrintJS' :: JS -> StateT PrinterState Maybe String
200prettyPrintJS' = A.runKleisli $ runPattern matchValue
200prettyPrintJS' = A.runKleisli $ runPattern matchValue