From 883e96b0c5e5cfaf160841f43bb297afb79a9ba5 Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 19 Jun 2008 14:16:05 +0000 Subject: move the prelude sources to the prelude directory and add the resource library to cabal --- src-3.0/GF/Infra/UseIO.hs | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'src-3.0') diff --git a/src-3.0/GF/Infra/UseIO.hs b/src-3.0/GF/Infra/UseIO.hs index 5762454d7..00b956708 100644 --- a/src-3.0/GF/Infra/UseIO.hs +++ b/src-3.0/GF/Infra/UseIO.hs @@ -30,11 +30,6 @@ import Control.Monad import Control.Exception(evaluate) import qualified Data.ByteString.Char8 as BS -#ifdef mingw32_HOST_OS -import System.Win32.DLL -import Foreign.Ptr -#endif - putShow' :: Show a => (c -> a) -> c -> IO () putShow' f = putStrLn . show . length . show . f @@ -102,13 +97,7 @@ getLibraryPath :: IO FilePath getLibraryPath = catch (getEnv gfLibraryPath) -#ifdef mingw32_HOST_OS - (\_ -> do exepath <- getModuleFileName nullPtr - let (path,_) = splitFileName exepath - canonicalizePath (combine path "../lib")) -#else - (const getDataDir) -#endif + (\ex -> getDataDir >>= \path -> return (path "lib")) -- | extends the search path with the -- 'gfLibraryPath' and 'gfGrammarPathVar' -- cgit v1.2.3