Fix the ‘data F = a’ issue from #493.

yi-editor · Jan 15, 2014 · 5ab50d4 · 5ab50d4
1 parent 882d5f8
commit 5ab50d4
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/yi/src/library/Yi/Syntax/Haskell.hs b/yi/src/library/Yi/Syntax/Haskell.hs
@@ -423,10 +423,14 @@ pAtype = pAtype'
      <|> pErr
 
 pAtype' :: Parser TT (Exp TT)
-pAtype' = pQvarid
+pAtype' = pTypeCons
       <|> pParen (many $ pExprElem [])
       <|> pBrack (many $ pExprElem [])
 
+pTypeCons :: Parser TT (Exp TT)
+pTypeCons = Bin <$> pAtom [ConsIdent]
+            <*> please (pMany $ pAtom [VarIdent, ConsIdent])
+
 pContext :: Parser TT (Exp TT)
 pContext = Context <$> pOpt pForAll
        <*> (TC <$> (pClass' <|> pParenSep pClass'))
@@ -700,4 +704,3 @@ errTok = mkTok <$> curPos
          tB Nothing = maxBound
          tB (Just x) = tokBegin x
          mkTok p = Tok (Special '!') 0 (startPosn {posnOfs = p})
-