No need for -cpp. Use -fglasgow-exts only where needed
This commit is contained in:
parent
3dfd017b32
commit
5c8d34fba9
@ -1,5 +1,5 @@
|
||||
{-# OPTIONS -fglasgow-exts -cpp #-}
|
||||
-----------------------------------------------------------------------------
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
--
|
||||
-- |
|
||||
-- Module : Data.Dynamic
|
||||
-- Copyright : (c) The University of Glasgow 2001
|
||||
|
@ -1,4 +1,4 @@
|
||||
{-# OPTIONS -cpp -fglasgow-exts -fno-implicit-prelude #-}
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
--
|
||||
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
--
|
||||
|
@ -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
|
||||
|
@ -1,4 +1,3 @@
|
||||
{-# OPTIONS -fglasgow-exts -fffi -cpp #-}
|
||||
--
|
||||
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
--
|
||||
|
@ -1,4 +1,4 @@
|
||||
{-# OPTIONS -cpp -fffi -fglasgow-exts #-}
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
--
|
||||
-- glaexts for I# ops
|
||||
--
|
||||
|
@ -1,4 +1,3 @@
|
||||
{-# OPTIONS -#include "Linker.h" #-}
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
--
|
||||
-- Copyright (C) 2004-5 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
|
@ -1,4 +1,3 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
--
|
||||
-- Copyright (C) 2005 Sean Seefried - http://www.cse.unsw.edu.au/~sseefried
|
||||
--
|
||||
|
@ -1,4 +1,4 @@
|
||||
{-# OPTIONS -fglasgow-exts -cpp #-}
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
{-# OPTIONS -w #-}
|
||||
|
||||
module System.Plugins.ParsePkgConfCabal (
|
||||
|
@ -1,4 +1,4 @@
|
||||
{-# OPTIONS -fglasgow-exts -cpp #-}
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
{-# OPTIONS -w #-}
|
||||
|
||||
module System.Plugins.ParsePkgConfLite (
|
||||
|
@ -1,4 +1,3 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
--
|
||||
-- | A Posix.popen compatibility mapping.
|
||||
--
|
||||
|
@ -1,4 +1,3 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
--
|
||||
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
--
|
||||
|
Loading…
x
Reference in New Issue
Block a user