GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-13 23:09:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

A couple of fixes for GHC 8.2.1 compatibility

Browse Source
This commit is contained in:
Thomas Hallgren
2017-08-11 10:07:43 +02:00
parent 0806b8b80e
commit a0e7e3bf83
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/TypeCheck.hs
View File

@@ -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)