From 88de5784428bec9a4b32bdf447c160da29b3745e Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 4 Jan 2021 20:27:45 +0100
Subject: Make up to date

---
 Sil/Parse.icl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Sil/Parse.icl')

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)
-- 
cgit v1.2.3