lexString: keep processing after end-of-line comment

conal · Jul 18, 2016 · fd2cdf8 · fd2cdf8
1 parent d52204c
commit fd2cdf8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Network/Gitit/Plugin/FixSymbols.hs b/src/Network/Gitit/Plugin/FixSymbols.hs
@@ -193,7 +193,9 @@ substMap = Map.fromList $
 -- Prelude's 'lex', but preserves spaces and end-of-line comments.
 lexString :: String -> [String]
 lexString "" = []
-lexString (s@('-':'-':_)) = [s]
+lexString (s@('-':'-':_)) = line : lexString rest
+ where
+   (line,rest) = break (== '\n') s
 lexString (c:s') | c `elem` " \n\t" = [c] : lexString s'
 lexString s | [(h,t)] <- lex s = h : lexString t
 lexString (c:s') = [c] : lexString s'