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

@ -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

View File

@ -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
-- --

View File

@ -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

View File

@ -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
-- --

View File

@ -1,4 +1,4 @@
{-# OPTIONS -cpp -fffi -fglasgow-exts #-} {-# OPTIONS -fglasgow-exts #-}
-- --
-- glaexts for I# ops -- glaexts for I# ops
-- --

View File

@ -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

View File

@ -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
-- --

View File

@ -1,4 +1,4 @@
{-# OPTIONS -fglasgow-exts -cpp #-} {-# OPTIONS -fglasgow-exts #-}
{-# OPTIONS -w #-} {-# OPTIONS -w #-}
module System.Plugins.ParsePkgConfCabal ( module System.Plugins.ParsePkgConfCabal (

View File

@ -1,4 +1,4 @@
{-# OPTIONS -fglasgow-exts -cpp #-} {-# OPTIONS -fglasgow-exts #-}
{-# OPTIONS -w #-} {-# OPTIONS -w #-}
module System.Plugins.ParsePkgConfLite ( module System.Plugins.ParsePkgConfLite (

View File

@ -1,4 +1,3 @@
{-# OPTIONS -cpp #-}
-- --
-- | A Posix.popen compatibility mapping. -- | A Posix.popen compatibility mapping.
-- --

View File

@ -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
-- --