No need for -cpp. Use -fglasgow-exts only where needed

This commit is contained in:
Don Stewart
2005-09-03 04:45:56 +00:00
parent 3dfd017b32
commit 5c8d34fba9
11 changed files with 11 additions and 16 deletions

View File

@ -53,8 +53,8 @@ import Data.Map as Map
import System.IO
import System.Directory
import Foreign.C
import Foreign
-- import Foreign.C
-- import Foreign
--
-- ok. the idea is: the have either installed the library, in which case
@ -176,10 +176,10 @@ typeOf src mods = do
status <- make tmpf cmdline
ty <- case status of
MakeSuccess _ obj -> do
m_v <- load obj [pwd] loadpath symbol
m_v <- load obj [pwd] loadpath symbol :: IO (LoadStatus Dynamic)
case m_v of
LoadFailure _ -> return "<failure>"
LoadSuccess _ (v::Dynamic) -> return $ (init . tail) $ show v
LoadFailure _ -> return "<failure>"
LoadSuccess _ v -> return $ (init . tail) $ show v
MakeFailure err -> mapM_ putStrLn err >> return []
makeCleaner tmpf

View File

@ -1,4 +1,3 @@
{-# OPTIONS -fglasgow-exts -fffi -cpp #-}
--
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
--