shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add missing '->' in isConIdent.

--- a/src/MicroHs/Ident.hs

+++ b/src/MicroHs/Ident.hs

@@ -130,7 +130,7 @@

 isConIdent :: Ident -> Bool

 isConIdent i@(Ident _ t) =

   let c = headIdent i

-  in  isUpper c || c == ':' || c == ',' || t == pack "[]"  || t == pack "()"

+  in  isUpper c || c == ':' || c == ',' || t == pack "[]"  || t == pack "()" || t == pack "->"

 isOperChar :: Char -> Bool

 isOperChar '@' = True

-- 

⑨