diff options
| -rw-r--r-- | Sil/Parse.icl | 3 |
1 files changed, 2 insertions, 1 deletions
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" |