Commit 945c45ad authored by Ben Gamari's avatar Ben Gamari 🐢

Prefer #if defined to #ifdef

Our new CPP linter enforces this.
parent e5b3492f
...@@ -483,7 +483,7 @@ plusParent p1 p2@(FldParent _ _) = hasParent p2 p1 ...@@ -483,7 +483,7 @@ plusParent p1 p2@(FldParent _ _) = hasParent p2 p1
plusParent _ _ = NoParent plusParent _ _ = NoParent
hasParent :: Parent -> Parent -> Parent hasParent :: Parent -> Parent -> Parent
#ifdef DEBUG #if defined(DEBUG)
hasParent p NoParent = p hasParent p NoParent = p
hasParent p p' hasParent p p'
| p /= p' = pprPanic "hasParent" (ppr p <+> ppr p') -- Parents should agree | p /= p' = pprPanic "hasParent" (ppr p <+> ppr p') -- Parents should agree
......
...@@ -183,7 +183,7 @@ mkNop :: CmmAGraph ...@@ -183,7 +183,7 @@ mkNop :: CmmAGraph
mkNop = nilOL mkNop = nilOL
mkComment :: FastString -> CmmAGraph mkComment :: FastString -> CmmAGraph
#ifdef DEBUG #if defined(DEBUG)
-- SDM: generating all those comments takes time, this saved about 4% for me -- SDM: generating all those comments takes time, this saved about 4% for me
mkComment fs = mkMiddle $ CmmComment fs mkComment fs = mkMiddle $ CmmComment fs
#else #else
......
...@@ -541,7 +541,7 @@ findRhsArity dflags bndr rhs old_arity ...@@ -541,7 +541,7 @@ findRhsArity dflags bndr rhs old_arity
| cur_arity <= old_arity = cur_arity | cur_arity <= old_arity = cur_arity
| new_arity == cur_arity = cur_arity | new_arity == cur_arity = cur_arity
| otherwise = ASSERT( new_arity < cur_arity ) | otherwise = ASSERT( new_arity < cur_arity )
#ifdef DEBUG #if defined(DEBUG)
pprTrace "Exciting arity" pprTrace "Exciting arity"
(vcat [ ppr bndr <+> ppr cur_arity <+> ppr new_arity (vcat [ ppr bndr <+> ppr cur_arity <+> ppr new_arity
, ppr rhs]) , ppr rhs])
......
...@@ -156,7 +156,7 @@ deSugar hsc_env ...@@ -156,7 +156,7 @@ deSugar hsc_env
-- You might think it doesn't matter, but the simplifier brings all top-level -- You might think it doesn't matter, but the simplifier brings all top-level
-- things into the in-scope set before simplifying; so we get no unfolding for F#! -- things into the in-scope set before simplifying; so we get no unfolding for F#!
#ifdef DEBUG #if defined(DEBUG)
-- Debug only as pre-simple-optimisation program may be really big -- Debug only as pre-simple-optimisation program may be really big
; endPassIO hsc_env print_unqual CoreDesugar final_pgm rules_for_imps ; endPassIO hsc_env print_unqual CoreDesugar final_pgm rules_for_imps
#endif #endif
......
...@@ -47,7 +47,7 @@ module GHCi ...@@ -47,7 +47,7 @@ module GHCi
) where ) where
import GHCi.Message import GHCi.Message
#ifdef GHCI #if defined(GHCI)
import GHCi.Run import GHCi.Run
#endif #endif
import GHCi.RemoteTypes import GHCi.RemoteTypes
...@@ -83,7 +83,7 @@ import GHC.Stack (CostCentre,CostCentreStack) ...@@ -83,7 +83,7 @@ import GHC.Stack (CostCentre,CostCentreStack)
import System.Exit import System.Exit
import Data.Maybe import Data.Maybe
import GHC.IO.Handle.Types (Handle) import GHC.IO.Handle.Types (Handle)
#ifdef mingw32_HOST_OS #if defined(mingw32_HOST_OS)
import Foreign.C import Foreign.C
import GHC.IO.Handle.FD (fdToHandle) import GHC.IO.Handle.FD (fdToHandle)
#if !MIN_VERSION_process(1,4,2) #if !MIN_VERSION_process(1,4,2)
...@@ -162,7 +162,7 @@ Other Notes on Remote GHCi ...@@ -162,7 +162,7 @@ Other Notes on Remote GHCi
* Note [Remote Template Haskell] in libraries/ghci/GHCi/TH.hs * Note [Remote Template Haskell] in libraries/ghci/GHCi/TH.hs
-} -}
#ifndef GHCI #if !defined(GHCI)
needExtInt :: IO a needExtInt :: IO a
needExtInt = throwIO needExtInt = throwIO
(InstallationError "this operation requires -fexternal-interpreter") (InstallationError "this operation requires -fexternal-interpreter")
...@@ -180,7 +180,7 @@ iservCmd hsc_env@HscEnv{..} msg ...@@ -180,7 +180,7 @@ iservCmd hsc_env@HscEnv{..} msg
uninterruptibleMask_ $ do -- Note [uninterruptibleMask_] uninterruptibleMask_ $ do -- Note [uninterruptibleMask_]
iservCall iserv msg iservCall iserv msg
| otherwise = -- Just run it directly | otherwise = -- Just run it directly
#ifdef GHCI #if defined(GHCI)
run msg run msg
#else #else
needExtInt needExtInt
...@@ -385,7 +385,7 @@ lookupSymbol hsc_env@HscEnv{..} str ...@@ -385,7 +385,7 @@ lookupSymbol hsc_env@HscEnv{..} str
writeIORef iservLookupSymbolCache $! addToUFM cache str p writeIORef iservLookupSymbolCache $! addToUFM cache str p
return (Just p) return (Just p)
| otherwise = | otherwise =
#ifdef GHCI #if defined(GHCI)
fmap fromRemotePtr <$> run (LookupSymbol (unpackFS str)) fmap fromRemotePtr <$> run (LookupSymbol (unpackFS str))
#else #else
needExtInt needExtInt
...@@ -525,7 +525,7 @@ stopIServ HscEnv{..} = ...@@ -525,7 +525,7 @@ stopIServ HscEnv{..} =
runWithPipes :: (CreateProcess -> IO ProcessHandle) runWithPipes :: (CreateProcess -> IO ProcessHandle)
-> FilePath -> [String] -> IO (ProcessHandle, Handle, Handle) -> FilePath -> [String] -> IO (ProcessHandle, Handle, Handle)
#ifdef mingw32_HOST_OS #if defined(mingw32_HOST_OS)
foreign import ccall "io.h _close" foreign import ccall "io.h _close"
c__close :: CInt -> IO CInt c__close :: CInt -> IO CInt
...@@ -652,7 +652,7 @@ wormholeRef dflags _r ...@@ -652,7 +652,7 @@ wormholeRef dflags _r
| gopt Opt_ExternalInterpreter dflags | gopt Opt_ExternalInterpreter dflags
= throwIO (InstallationError = throwIO (InstallationError
"this operation requires -fno-external-interpreter") "this operation requires -fno-external-interpreter")
#ifdef GHCI #if defined(GHCI)
| otherwise | otherwise
= localRef _r = localRef _r
#else #else
......
...@@ -1400,7 +1400,7 @@ checkModUsage _this_pkg UsageFile{ usg_file_path = file, ...@@ -1400,7 +1400,7 @@ checkModUsage _this_pkg UsageFile{ usg_file_path = file,
where where
recomp = RecompBecause (file ++ " changed") recomp = RecompBecause (file ++ " changed")
handle = handle =
#ifdef DEBUG #if defined(DEBUG)
\e -> pprTrace "UsageFile" (text (show e)) $ return recomp \e -> pprTrace "UsageFile" (text (show e)) $ return recomp
#else #else
\_ -> return recomp -- if we can't find the file, just recompile, don't fail \_ -> return recomp -- if we can't find the file, just recompile, don't fail
......
...@@ -868,7 +868,7 @@ ppFloat = ppDouble . widenFp ...@@ -868,7 +868,7 @@ ppFloat = ppDouble . widenFp
-- | Reverse or leave byte data alone to fix endianness on this target. -- | Reverse or leave byte data alone to fix endianness on this target.
fixEndian :: [a] -> [a] fixEndian :: [a] -> [a]
#ifdef WORDS_BIGENDIAN #if defined(WORDS_BIGENDIAN)
fixEndian = id fixEndian = id
#else #else
fixEndian = reverse fixEndian = reverse
......
...@@ -986,7 +986,7 @@ which will eliminate the expression entirely. ...@@ -986,7 +986,7 @@ which will eliminate the expression entirely.
However, it's certainly possible and reasonable for this to occur in However, it's certainly possible and reasonable for this to occur in
hand-written C-- code. Consider something like: hand-written C-- code. Consider something like:
#ifndef SOME_CONDITIONAL #if !defined(SOME_CONDITIONAL)
#define CHECK_THING(x) 1 #define CHECK_THING(x) 1
#else #else
#define CHECK_THING(x) some_operation((x)) #define CHECK_THING(x) some_operation((x))
......
...@@ -2636,7 +2636,7 @@ dynamic_flags_deps = [ ...@@ -2636,7 +2636,7 @@ dynamic_flags_deps = [
, make_ord_flag defGhcFlag "static" (NoArg removeWayDyn) , make_ord_flag defGhcFlag "static" (NoArg removeWayDyn)
, make_ord_flag defGhcFlag "dynamic" (NoArg (addWay WayDyn)) , make_ord_flag defGhcFlag "dynamic" (NoArg (addWay WayDyn))
, make_ord_flag defGhcFlag "rdynamic" $ noArg $ , make_ord_flag defGhcFlag "rdynamic" $ noArg $
#ifdef linux_HOST_OS #if defined(linux_HOST_OS)
addOptl "-rdynamic" addOptl "-rdynamic"
#elif defined (mingw32_HOST_OS) #elif defined (mingw32_HOST_OS)
addOptl "-Wl,--export-all-symbols" addOptl "-Wl,--export-all-symbols"
...@@ -4884,7 +4884,7 @@ addIncludePath p = ...@@ -4884,7 +4884,7 @@ addIncludePath p =
addFrameworkPath p = addFrameworkPath p =
upd (\s -> s{frameworkPaths = frameworkPaths s ++ splitPathList p}) upd (\s -> s{frameworkPaths = frameworkPaths s ++ splitPathList p})
#ifndef mingw32_TARGET_OS #if !defined(mingw32_TARGET_OS)
split_marker :: Char split_marker :: Char
split_marker = ':' -- not configurable (ToDo) split_marker = ':' -- not configurable (ToDo)
#endif #endif
...@@ -4896,7 +4896,7 @@ splitPathList s = filter notNull (splitUp s) ...@@ -4896,7 +4896,7 @@ splitPathList s = filter notNull (splitUp s)
-- cause confusion when they are translated into -I options -- cause confusion when they are translated into -I options
-- for passing to gcc. -- for passing to gcc.
where where
#ifndef mingw32_TARGET_OS #if !defined(mingw32_TARGET_OS)
splitUp xs = split split_marker xs splitUp xs = split split_marker xs
#else #else
-- Windows: 'hybrid' support for DOS-style paths in directory lists. -- Windows: 'hybrid' support for DOS-style paths in directory lists.
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
-- | Dynamically lookup up values from modules and loading them. -- | Dynamically lookup up values from modules and loading them.
module DynamicLoading ( module DynamicLoading (
#ifdef GHCI #if defined(GHCI)
-- * Loading plugins -- * Loading plugins
loadPlugins, loadPlugins,
loadFrontendPlugin, loadFrontendPlugin,
...@@ -24,7 +24,7 @@ module DynamicLoading ( ...@@ -24,7 +24,7 @@ module DynamicLoading (
#endif #endif
) where ) where
#ifdef GHCI #if defined(GHCI)
import Linker ( linkModule, getHValue ) import Linker ( linkModule, getHValue )
import GHCi ( wormhole ) import GHCi ( wormhole )
import SrcLoc ( noSrcSpan ) import SrcLoc ( noSrcSpan )
...@@ -66,7 +66,7 @@ import Data.List ( intercalate ) ...@@ -66,7 +66,7 @@ import Data.List ( intercalate )
#endif #endif
#ifdef GHCI #if defined(GHCI)
loadPlugins :: HscEnv -> IO [(ModuleName, Plugin, [CommandLineOption])] loadPlugins :: HscEnv -> IO [(ModuleName, Plugin, [CommandLineOption])]
loadPlugins hsc_env loadPlugins hsc_env
......
...@@ -81,7 +81,7 @@ import Data.List ...@@ -81,7 +81,7 @@ import Data.List
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified Data.Set as Set import qualified Data.Set as Set
#ifndef mingw32_HOST_OS #if !defined(mingw32_HOST_OS)
import qualified System.Posix.Internals import qualified System.Posix.Internals
#else /* Must be Win32 */ #else /* Must be Win32 */
import Foreign import Foreign
...@@ -102,7 +102,7 @@ import Control.Concurrent ...@@ -102,7 +102,7 @@ import Control.Concurrent
import FastString import FastString
import SrcLoc ( SrcLoc, mkSrcLoc, noSrcSpan, mkSrcSpan ) import SrcLoc ( SrcLoc, mkSrcLoc, noSrcSpan, mkSrcSpan )
#ifdef mingw32_HOST_OS #if defined(mingw32_HOST_OS)
# if defined(i386_HOST_ARCH) # if defined(i386_HOST_ARCH)
# define WINDOWS_CCONV stdcall # define WINDOWS_CCONV stdcall
# elif defined(x86_64_HOST_ARCH) # elif defined(x86_64_HOST_ARCH)
...@@ -1539,7 +1539,7 @@ foreign import WINDOWS_CCONV unsafe "dynamic" ...@@ -1539,7 +1539,7 @@ foreign import WINDOWS_CCONV unsafe "dynamic"
getBaseDir = return Nothing getBaseDir = return Nothing
#endif #endif
#ifdef mingw32_HOST_OS #if defined(mingw32_HOST_OS)
foreign import ccall unsafe "_getpid" getProcessID :: IO Int -- relies on Int == Int32 on Windows foreign import ccall unsafe "_getpid" getProcessID :: IO Int -- relies on Int == Int32 on Windows
#else #else
getProcessID :: IO Int getProcessID :: IO Int
......
...@@ -9,7 +9,7 @@ places in the GHC library. ...@@ -9,7 +9,7 @@ places in the GHC library.
#include <string.h> #include <string.h>
#ifdef HAVE_UNISTD_H #if defined(HAVE_UNISTD_H)
#include <unistd.h> #include <unistd.h>
#endif #endif
......
...@@ -2272,7 +2272,7 @@ primop WaitWriteOp "waitWrite#" GenPrimOp ...@@ -2272,7 +2272,7 @@ primop WaitWriteOp "waitWrite#" GenPrimOp
has_side_effects = True has_side_effects = True
out_of_line = True out_of_line = True
#ifdef mingw32_TARGET_OS #if defined(mingw32_TARGET_OS)
primop AsyncReadOp "asyncRead#" GenPrimOp primop AsyncReadOp "asyncRead#" GenPrimOp
Int# -> Int# -> Int# -> Addr# -> State# RealWorld-> (# State# RealWorld, Int#, Int# #) Int# -> Int# -> Int# -> Addr# -> State# RealWorld-> (# State# RealWorld, Int#, Int# #)
{Asynchronously read bytes from specified file descriptor.} {Asynchronously read bytes from specified file descriptor.}
......
...@@ -56,7 +56,7 @@ import Outputable ...@@ -56,7 +56,7 @@ import Outputable
import Control.Monad import Control.Monad
import qualified GHC.LanguageExtensions as LangExt import qualified GHC.LanguageExtensions as LangExt
#ifdef GHCI #if defined(GHCI)
import DynamicLoading ( loadPlugins ) import DynamicLoading ( loadPlugins )
import Plugins ( installCoreToDos ) import Plugins ( installCoreToDos )
#else #else
...@@ -368,7 +368,7 @@ getCoreToDo dflags ...@@ -368,7 +368,7 @@ getCoreToDo dflags
-- Loading plugins -- Loading plugins
addPluginPasses :: [CoreToDo] -> CoreM [CoreToDo] addPluginPasses :: [CoreToDo] -> CoreM [CoreToDo]
#ifndef GHCI #if !defined(GHCI)
addPluginPasses builtin_passes addPluginPasses builtin_passes
= do { dflags <- getDynFlags = do { dflags <- getDynFlags
; let pluginMods = pluginModNames dflags ; let pluginMods = pluginModNames dflags
...@@ -493,7 +493,7 @@ doCorePass (CoreDoRuleCheck phase pat) = ruleCheckPass phase pat ...@@ -493,7 +493,7 @@ doCorePass (CoreDoRuleCheck phase pat) = ruleCheckPass phase pat
doCorePass CoreDoNothing = return doCorePass CoreDoNothing = return
doCorePass (CoreDoPasses passes) = runCorePasses passes doCorePass (CoreDoPasses passes) = runCorePasses passes
#ifdef GHCI #if defined(GHCI)
doCorePass (CoreDoPluginPass _ pass) = {-# SCC "Plugin" #-} pass doCorePass (CoreDoPluginPass _ pass) = {-# SCC "Plugin" #-} pass
#endif #endif
......
...@@ -843,7 +843,7 @@ match_co renv subst co1 co2 ...@@ -843,7 +843,7 @@ match_co renv subst co1 co2
_ -> Nothing _ -> Nothing
match_co _ _ _co1 _co2 match_co _ _ _co1 _co2
-- Currently just deals with CoVarCo, TyConAppCo and Refl -- Currently just deals with CoVarCo, TyConAppCo and Refl
#ifdef DEBUG #if defined(DEBUG)
= pprTrace "match_co: needs more cases" (ppr _co1 $$ ppr _co2) Nothing = pprTrace "match_co: needs more cases" (ppr _co1 $$ ppr _co2) Nothing
#else #else
= Nothing = Nothing
......
...@@ -263,7 +263,7 @@ newCoercionHole ...@@ -263,7 +263,7 @@ newCoercionHole
fillCoercionHole :: CoercionHole -> Coercion -> TcM () fillCoercionHole :: CoercionHole -> Coercion -> TcM ()
fillCoercionHole (CoercionHole u ref) co fillCoercionHole (CoercionHole u ref) co
= do { = do {
#ifdef DEBUG #if defined(DEBUG)
; cts <- readTcRef ref ; cts <- readTcRef ref
; whenIsJust cts $ \old_co -> ; whenIsJust cts $ \old_co ->
pprPanic "Filling a filled coercion hole" (ppr u $$ ppr co $$ ppr old_co) pprPanic "Filling a filled coercion hole" (ppr u $$ ppr co $$ ppr old_co)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
-- access select functions of the 'TcM', principally those to do with -- access select functions of the 'TcM', principally those to do with
-- reading parts of the state. -- reading parts of the state.
module TcPluginM ( module TcPluginM (
#ifdef GHCI #if defined(GHCI)
-- * Basic TcPluginM functionality -- * Basic TcPluginM functionality
TcPluginM, TcPluginM,
tcPluginIO, tcPluginIO,
...@@ -52,7 +52,7 @@ module TcPluginM ( ...@@ -52,7 +52,7 @@ module TcPluginM (
#endif #endif
) where ) where
#ifdef GHCI #if defined(GHCI)
import qualified TcRnMonad as TcM import qualified TcRnMonad as TcM
import qualified TcSMonad as TcS import qualified TcSMonad as TcS
import qualified TcEnv as TcM import qualified TcEnv as TcM
......
...@@ -54,7 +54,7 @@ import RnFixity ( lookupFixityRn ) ...@@ -54,7 +54,7 @@ import RnFixity ( lookupFixityRn )
import MkId import MkId
import TidyPgm ( globaliseAndTidyId ) import TidyPgm ( globaliseAndTidyId )
import TysWiredIn ( unitTy, mkListTy ) import TysWiredIn ( unitTy, mkListTy )
#ifdef GHCI #if defined(GHCI)
import DynamicLoading ( loadPlugins ) import DynamicLoading ( loadPlugins )
import Plugins ( tcPlugin ) import Plugins ( tcPlugin )
#endif #endif
...@@ -2622,7 +2622,7 @@ withTcPlugins hsc_env m = ...@@ -2622,7 +2622,7 @@ withTcPlugins hsc_env m =
return (solve s, stop s) return (solve s, stop s)
loadTcPlugins :: HscEnv -> IO [TcPlugin] loadTcPlugins :: HscEnv -> IO [TcPlugin]
#ifndef GHCI #if !defined(GHCI)
loadTcPlugins _ = return [] loadTcPlugins _ = return []
#else #else
loadTcPlugins hsc_env = loadTcPlugins hsc_env =
......
...@@ -167,7 +167,7 @@ import MonadUtils ...@@ -167,7 +167,7 @@ import MonadUtils
import Data.IORef import Data.IORef
import Data.List ( foldl', partition ) import Data.List ( foldl', partition )
#ifdef DEBUG #if defined(DEBUG)
import Digraph import Digraph
import UniqSet import UniqSet
#endif #endif
...@@ -2397,14 +2397,14 @@ runTcSWithEvBinds ev_binds_var tcs ...@@ -2397,14 +2397,14 @@ runTcSWithEvBinds ev_binds_var tcs
; when (count > 0) $ ; when (count > 0) $
csTraceTcM $ return (text "Constraint solver steps =" <+> int count) csTraceTcM $ return (text "Constraint solver steps =" <+> int count)
#ifdef DEBUG #if defined(DEBUG)
; ev_binds <- TcM.getTcEvBindsMap ev_binds_var ; ev_binds <- TcM.getTcEvBindsMap ev_binds_var
; checkForCyclicBinds ev_binds ; checkForCyclicBinds ev_binds
#endif #endif
; return res } ; return res }
#ifdef DEBUG #if defined(DEBUG)
checkForCyclicBinds :: EvBindMap -> TcM () checkForCyclicBinds :: EvBindMap -> TcM ()
checkForCyclicBinds ev_binds_map checkForCyclicBinds ev_binds_map
| null cycles | null cycles
...@@ -2456,7 +2456,7 @@ nestImplicTcS ref inner_tclvl (TcS thing_inside) ...@@ -2456,7 +2456,7 @@ nestImplicTcS ref inner_tclvl (TcS thing_inside)
; res <- TcM.setTcLevel inner_tclvl $ ; res <- TcM.setTcLevel inner_tclvl $
thing_inside nest_env thing_inside nest_env
#ifdef DEBUG #if defined(DEBUG)
-- Perform a check that the thing_inside did not cause cycles -- Perform a check that the thing_inside did not cause cycles
; ev_binds <- TcM.getTcEvBindsMap ref ; ev_binds <- TcM.getTcEvBindsMap ref
; checkForCyclicBinds ev_binds ; checkForCyclicBinds ev_binds
......
...@@ -38,7 +38,7 @@ import Debug.Trace ( trace ) ...@@ -38,7 +38,7 @@ import Debug.Trace ( trace )
import System.IO.Unsafe import System.IO.Unsafe
import System.Environment import System.Environment
#ifndef mingw32_HOST_OS #if !defined(mingw32_HOST_OS)
import System.Posix.Signals as S import System.Posix.Signals as S
#endif #endif
......
...@@ -168,7 +168,7 @@ import qualified Data.Set as Set ...@@ -168,7 +168,7 @@ import qualified Data.Set as Set
import Data.Time import Data.Time
#ifdef DEBUG #if defined(DEBUG)
import {-# SOURCE #-} Outputable ( warnPprTrace, text ) import {-# SOURCE #-} Outputable ( warnPprTrace, text )
#endif #endif
...@@ -192,42 +192,42 @@ the flags are off. ...@@ -192,42 +192,42 @@ the flags are off.
-} -}
ghciSupported :: Bool ghciSupported :: Bool
#ifdef GHCI #if defined(GHCI)
ghciSupported = True ghciSupported = True
#else #else
ghciSupported = False ghciSupported = False
#endif #endif
debugIsOn :: Bool debugIsOn :: Bool
#ifdef DEBUG #if defined(DEBUG)
debugIsOn = True debugIsOn = True
#else #else
debugIsOn = False debugIsOn = False
#endif #endif
ncgDebugIsOn :: Bool ncgDebugIsOn :: Bool
#ifdef NCG_DEBUG #if defined(NCG_DEBUG)
ncgDebugIsOn = True ncgDebugIsOn = True
#else #else
ncgDebugIsOn = False ncgDebugIsOn = False
#endif #endif
ghciTablesNextToCode :: Bool ghciTablesNextToCode :: Bool
#ifdef GHCI_TABLES_NEXT_TO_CODE #if defined(GHCI_TABLES_NEXT_TO_CODE)
ghciTablesNextToCode = True ghciTablesNextToCode = True
#else #else
ghciTablesNextToCode = False ghciTablesNextToCode = False
#endif #endif
isWindowsHost :: Bool isWindowsHost :: Bool
#ifdef mingw32_HOST_OS #if defined(mingw32_HOST_OS)
isWindowsHost = True isWindowsHost = True
#else #else
isWindowsHost = False isWindowsHost = False
#endif #endif
isDarwinHost :: Bool isDarwinHost :: Bool
#ifdef darwin_HOST_OS #if defined(darwin_HOST_OS)
isDarwinHost = True isDarwinHost = True
#else #else
isDarwinHost = False isDarwinHost = False
...@@ -326,7 +326,7 @@ zipWithEqual :: String -> (a->b->c) -> [a]->[b]->[c] ...@@ -326,7 +326,7 @@ zipWithEqual :: String -> (a->b->c) -> [a]->[b]->[c]
zipWith3Equal :: String -> (a->b->c->d) -> [a]->[b]->[c]->[d] zipWith3Equal :: String -> (a->b->c->d) -> [a]->[b]->[c]->[d]
zipWith4Equal :: String -> (a->b->c->d->e) -> [a]->[b]->[c]->[d]->[e] zipWith4Equal :: String -> (a->b->c->d->e) -> [a]->[b]->[c]->[d]->[e]