1 files changed, 14 insertions, 14 deletions
diff --git a/Parser.hs b/Parser.hs
index 971ed89..b31ffa1 100644
--- a/Parser.hs
+++ b/Parser.hs
@@ -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