1
0
forked from GitHub/gf-core

A couple of fixes for GHC 8.2.1 compatibility

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

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)

View File

@@ -7,7 +7,7 @@ module CGIUtils (throwCGIError, handleCGIErrors,
outputHTML,outputPlain,outputText) where
import Control.Exception(Exception(..),SomeException(..),throw)
import Data.Dynamic(Typeable,cast)
import Data.Typeable(Typeable,cast)
import Prelude hiding (catch)
import System.IO(hPutStrLn,stderr)
#ifndef mingw32_HOST_OS