Commit de55f06a authored by John van Groningen's avatar John van Groningen

don't use OBJECT wihout argument, because OBJECT is a newtype constructor

parent c6e134b2
......@@ -57,7 +57,7 @@ where
-> (False, pos)
gFromString{|OBJECT|} fx str pos
# (mx, st) = fx str pos
= (mapMaybe OBJECT mx, st)
= (case mx of Just x -> Just (OBJECT x); Nothing -> Nothing, st)
gFromString{|RECORD|} fx str pos
= abort "gFromString for records is not implemented"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment