Commit 21c9699e authored by Simon Marlow's avatar Simon Marlow

FIX BUILD with ghc-6.4.x

parent b2543362
......@@ -48,8 +48,13 @@ import System.Exit ( exitWith, ExitCode(..) )
import System.Environment ( getArgs, getProgName, getEnv )
import System.IO
import System.IO.Error (try)
import Data.List ( isPrefixOf, isSuffixOf, isInfixOf, intersperse, sortBy, nub,
import Data.List ( isPrefixOf, isSuffixOf, intersperse, sortBy, nub,
unfoldr, break )
#if __GLASGOW_HASKELL__ > 604
import Data.List ( isInfixOf )
#else
import Data.List ( tails )
#endif
import Control.Concurrent
#ifdef mingw32_HOST_OS
......@@ -1063,3 +1068,8 @@ installSignalHandlers = do
#else
return () -- nothing
#endif
#if __GLASGOW_HASKELL__ <= 604
isInfixOf :: (Eq a) => [a] -> [a] -> Bool
isInfixOf needle haystack = any (isPrefixOf needle) (tails haystack)
#endif
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