@@ -13,7 +13,8 @@ data LineType = Prog | Blank | Comm
13ulLine ('>':' ':xs) = (Prog, xs)
13ulLine ('>':' ':xs) = (Prog, xs)
14ulLine ('>':xs) = (Prog, xs)
14ulLine ('>':xs) = (Prog, xs)
15ulLine xs | all isSpace xs = (Blank, "")
15ulLine xs | all isSpace xs = (Blank, "")
16+-- make sure it's not a doc comment
16− | otherwise = (Comm, '-':'-':xs)
17+ | otherwise = (Comm, '-':'-':' ':'>':xs)
18check f l (a:b:cs) = do chkAdj f l (fst a) (fst b)
19check f l (a:b:cs) = do chkAdj f l (fst a) (fst b)
19 check f (l+1) (b:cs)
20 check f (l+1) (b:cs)