summaryrefslogtreecommitdiff
path: root/src/LambdaCube/Compiler/Parser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/LambdaCube/Compiler/Parser.hs')
-rw-r--r--src/LambdaCube/Compiler/Parser.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/LambdaCube/Compiler/Parser.hs b/src/LambdaCube/Compiler/Parser.hs
index 70525cba..8f457e49 100644
--- a/src/LambdaCube/Compiler/Parser.hs
+++ b/src/LambdaCube/Compiler/Parser.hs
@@ -404,7 +404,7 @@ parseDef =
404 (af, cs) <- option (True, []) $ 404 (af, cs) <- option (True, []) $
405 (,) True . map (second $ (,) Nothing) . concat <$ reserved "where" <*> identation True (typedIds id npsd Nothing) 405 (,) True . map (second $ (,) Nothing) . concat <$ reserved "where" <*> identation True (typedIds id npsd Nothing)
406 <|> (,) False <$ reservedOp "=" <*> 406 <|> (,) False <$ reservedOp "=" <*>
407 sepBy1 ((,) <$> addFixity' upperCase 407 sepBy1 ((,) <$> (addFixity' upperCase <|> parens (addFixity colonSymbols))
408 <*> (mkConTy True <$> braces telescopeDataFields <|> mkConTy False <$> telescope Nothing) 408 <*> (mkConTy True <$> braces telescopeDataFields <|> mkConTy False <$> telescope Nothing)
409 ) 409 )
410 (reservedOp "|") 410 (reservedOp "|")