Add iosHost function.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 9 Jan 2016 14:33:51 +0000 (14:33 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 9 Jan 2016 14:33:51 +0000 (14:33 +0000)
See #138. [skip ci]

src/Oracles/Config/Setting.hs
src/Settings/Packages.hs

index 58f508b..0047f03 100644 (file)
@@ -1,9 +1,9 @@
 module Oracles.Config.Setting (
     Setting (..), SettingList (..),
     setting, settingList, getSetting, getSettingList,
-    anyTargetPlatform, anyTargetOs, anyTargetArch, anyHostOs, windowsHost,
+    anyTargetPlatform, anyTargetOs, anyTargetArch, anyHostOs,
     ghcWithInterpreter, ghcEnableTablesNextToCode, useLibFFIForAdjustors,
-    ghcCanonVersion, cmdLineLengthLimit, osxHost
+    ghcCanonVersion, cmdLineLengthLimit, iosHost, osxHost, windowsHost
     ) where
 
 import Control.Monad.Trans.Reader
@@ -122,12 +122,15 @@ anyTargetArch = matchSetting TargetArch
 anyHostOs :: [String] -> Action Bool
 anyHostOs = matchSetting HostOs
 
-windowsHost :: Action Bool
-windowsHost = anyHostOs ["mingw32", "cygwin32"]
+iosHost :: Action Bool
+iosHost = anyHostOs ["ios"]
 
 osxHost :: Action Bool
 osxHost = anyHostOs ["darwin"]
 
+windowsHost :: Action Bool
+windowsHost = anyHostOs ["mingw32", "cygwin32"]
+
 ghcWithInterpreter :: Action Bool
 ghcWithInterpreter = do
     goodOs <- anyTargetOs [ "mingw32", "cygwin32", "linux", "solaris2"
index 3f4f661..4d2f76c 100644 (file)
@@ -26,7 +26,7 @@ packagesStage0 = mconcat
     -- the stage0 predicate makes sure these packages are built only in Stage0
     , stage0 ? append [deriveConstants, dllSplit, genapply, genprimopcode, hp2ps]
     , stage0 ? windowsHost ? append [touchy]
-    , notM windowsHost ? notM (anyHostOs ["ios"]) ? append [terminfo] ]
+    , notM windowsHost ? iosHost ? append [terminfo] ]
 
 packagesStage1 :: Packages
 packagesStage1 = mconcat