From a0e7e3bf83d492782e8d87180dfd892115b09899 Mon Sep 17 00:00:00 2001
From: Thomas Hallgren <th-github@altocumulus.org>
Date: Fri, 11 Aug 2017 10:07:43 +0200
Subject: A couple of fixes for GHC 8.2.1 compatibility

---
 src/runtime/haskell/PGF/TypeCheck.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/runtime/haskell/PGF')

diff --git a/src/runtime/haskell/PGF/TypeCheck.hs b/src/runtime/haskell/PGF/TypeCheck.hs
index 3c2580d59..5db4ef439 100644
--- a/src/runtime/haskell/PGF/TypeCheck.hs
+++ b/src/runtime/haskell/PGF/TypeCheck.hs
@@ -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)
-- 
cgit v1.2.3