diff options
| author | Camil Staps | 2017-07-30 11:37:49 +0200 |
|---|---|---|
| committer | Camil Staps | 2017-07-30 11:37:49 +0200 |
| commit | 0b2217a2c5efd7b0bd853c6b6114372d42363d0a (patch) | |
| tree | 62ad0d9d802d6bf95806162f40f421584d0f37e9 /Sil/Parse.icl | |
| parent | Better errors (diff) | |
cleanup
Diffstat (limited to 'Sil/Parse.icl')
| -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" |