From f8ef28316dd8adeaf8d4d3e0f6e310e26ac19028 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 13 Feb 2024 22:39:14 +0100
Subject: More reindent

---
 Parser.hs | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'Parser.hs')

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
-- 
cgit v1.2.3-70-g09d2