diff options
Diffstat (limited to 'Sil/Parse.icl')
| -rw-r--r-- | Sil/Parse.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Sil/Parse.icl b/Sil/Parse.icl index ed53d9e..c21b4cb 100644 --- a/Sil/Parse.icl +++ b/Sil/Parse.icl @@ -24,7 +24,7 @@ import Sil.Util.Parser import Sil.Util.Printer derive gEq Token, Literal -instance == Token where == a b = gEq{|*|} a b +instance == Token where (==) a b = gEq{|*|} a b instance toString Token where @@ -261,7 +261,7 @@ where = liftM2 Literal getPosition literal <|> liftM2 Name getPosition name <|> liftM3 List getPosition (pure <$> bracked type) (pure []) - <|> liftM3 List getPosition (pure Nothing) (bracked $ seplist TComma expression) + <|> liftM3 List getPosition (pure ?None) (bracked $ seplist TComma expression) <|> (item TParenOpen *> getPosition >>= \pos -> seplistUntil TParenClose TComma expression >>= \es -> pure $ case es of [x] -> x; _ -> Tuple pos (length es) es) |