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
|
-- Module : Data.Dynamic
|
||||||
-- Copyright : (c) The University of Glasgow 2001
|
-- 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
|
-- 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.IO
|
||||||
import System.Directory
|
import System.Directory
|
||||||
|
|
||||||
import Foreign.C
|
-- import Foreign.C
|
||||||
import Foreign
|
-- import Foreign
|
||||||
|
|
||||||
--
|
--
|
||||||
-- ok. the idea is: the have either installed the library, in which case
|
-- 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
|
status <- make tmpf cmdline
|
||||||
ty <- case status of
|
ty <- case status of
|
||||||
MakeSuccess _ obj -> do
|
MakeSuccess _ obj -> do
|
||||||
m_v <- load obj [pwd] loadpath symbol
|
m_v <- load obj [pwd] loadpath symbol :: IO (LoadStatus Dynamic)
|
||||||
case m_v of
|
case m_v of
|
||||||
LoadFailure _ -> return "<failure>"
|
LoadFailure _ -> return "<failure>"
|
||||||
LoadSuccess _ (v::Dynamic) -> return $ (init . tail) $ show v
|
LoadSuccess _ v -> return $ (init . tail) $ show v
|
||||||
|
|
||||||
MakeFailure err -> mapM_ putStrLn err >> return []
|
MakeFailure err -> mapM_ putStrLn err >> return []
|
||||||
makeCleaner tmpf
|
makeCleaner tmpf
|
||||||
|
@ -1,4 +1,3 @@
|
|||||||
{-# OPTIONS -fglasgow-exts -fffi -cpp #-}
|
|
||||||
--
|
--
|
||||||
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
-- 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
|
-- glaexts for I# ops
|
||||||
--
|
--
|
||||||
|
@ -1,4 +1,3 @@
|
|||||||
{-# OPTIONS -#include "Linker.h" #-}
|
|
||||||
{-# OPTIONS -fglasgow-exts #-}
|
{-# OPTIONS -fglasgow-exts #-}
|
||||||
--
|
--
|
||||||
-- Copyright (C) 2004-5 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
-- 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
|
-- 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 #-}
|
{-# OPTIONS -w #-}
|
||||||
|
|
||||||
module System.Plugins.ParsePkgConfCabal (
|
module System.Plugins.ParsePkgConfCabal (
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
{-# OPTIONS -fglasgow-exts -cpp #-}
|
{-# OPTIONS -fglasgow-exts #-}
|
||||||
{-# OPTIONS -w #-}
|
{-# OPTIONS -w #-}
|
||||||
|
|
||||||
module System.Plugins.ParsePkgConfLite (
|
module System.Plugins.ParsePkgConfLite (
|
||||||
|
@ -1,4 +1,3 @@
|
|||||||
{-# OPTIONS -cpp #-}
|
|
||||||
--
|
--
|
||||||
-- | A Posix.popen compatibility mapping.
|
-- | A Posix.popen compatibility mapping.
|
||||||
--
|
--
|
||||||
|
@ -1,4 +1,3 @@
|
|||||||
{-# OPTIONS -cpp #-}
|
|
||||||
--
|
--
|
||||||
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||||
--
|
--
|
||||||
|
Loading…
x
Reference in New Issue
Block a user