diff options
-rw-r--r-- | Parser.hs | 28 |
1 files changed, 14 insertions, 14 deletions
@@ -438,21 +438,21 @@ pTypeAtom :: Parser Type pTypeAtom = pTypeParens <|> pTypeList <|> pTypeCon <|> pTypeVar where pTypeParens = do - inlineWhite - char '(' - asum [do inlineWhite - char ')' - return (TTup []) - ,do ty1 <- pType - ty2s <- many $ do - inlineWhite - char ',' - pType + inlineWhite + char '(' + asum [do inlineWhite + char ')' + return (TTup []) + ,do ty1 <- pType + ty2s <- many $ do inlineWhite - char ')' - case ty2s of - [] -> return ty1 - _ -> return (TTup (ty1 : ty2s))] + char ',' + pType + inlineWhite + char ')' + case ty2s of + [] -> return ty1 + _ -> return (TTup (ty1 : ty2s))] pTypeList = do inlineWhite |