mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-10-30 02:13:18 -06:00
A couple of fixes for GHC 8.2.1 compatibility
This commit is contained in:
1 parent
0806b8b80e
commit
a0e7e3bf83
2 files changed
+2
-2
No files matched your search
@@ -519,7 +519,7 @@ eqValue fail suspend k v1 v2 = do
|
||||
|
||||
bind i scope cs env vs0 v = do
|
||||
let k = scopeSize scope
|
||||
vs = reverse (take k env) ++ vs0
|
||||
vs = reverse (List.take k env) ++ vs0
|
||||
xs = nub [i | VGen i [] <- vs]
|
||||
if length vs /= length xs
|
||||
then suspend i (\e -> apply env e vs0 >>= \iv -> eqValue fail suspend k iv v)
|
||||
|
||||
Reference in new issue
Block a user