From 0b2217a2c5efd7b0bd853c6b6114372d42363d0a Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Sun, 30 Jul 2017 11:37:49 +0200 Subject: cleanup --- Sil/Parse.icl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Sil/Parse.icl') diff --git a/Sil/Parse.icl b/Sil/Parse.icl index 2c8272d..0f816fe 100644 --- a/Sil/Parse.icl +++ b/Sil/Parse.icl @@ -262,7 +262,8 @@ where <|> liftM Name name <|> flip List [] o pure <$> bracked type <|> List Nothing <$> bracked (seplist TComma expression) - <|> (item TParenOpen *> seplistUntil TParenClose TComma expression >>= \es -> pure $ case es of [x] -> x; _ -> Tuple (length es) es) + <|> (item TParenOpen *> seplistUntil TParenClose TComma expression >>= \es -> + pure $ case es of [x] -> x; _ -> Tuple (length es) es) name :: Parser Token Name name = (\(TName n) -> n) <$> satisfy isName <#> "name" -- cgit v1.2.3