on master help sign in
Fix selftest build
commitb991d59bcc44fd207f727b786d4036eadcd78a7e authorElliot Cameron <eacameron@gmail.com> dateMon 23 Dec 2019, 14:27 (7 years ago) parentce57f98
1 file changed+2−1
lib/selftest/src/Obelisk/SelfTest.hs+2−1
lib/selftest/src/Obelisk/SelfTest.hs+2−1
@@ -24,6 +24,7 @@ import Shelly
2424import System.Directory (withCurrentDirectory, getDirectoryContents)
2525import System.Environment
2626import System.Exit (ExitCode (..))
27+import qualified System.Info
2728import System.IO (Handle, hClose)
2829import System.IO.Temp
2930import System.Process (readProcessWithExitCode, CreateProcess(cwd), readCreateProcessWithExitCode, proc)
@@ -148,7 +149,7 @@ main = do
148149 it "can build ghc.backend" $ inTmpObInit $ \_ -> nixBuild ["-A", "ghc.backend"]
149150 it "can build ghcjs.frontend" $ inTmpObInit $ \_ -> nixBuild ["-A", "ghcjs.frontend"]
150151
151− if os == "darwin"
152+ if System.Info.os == "darwin"
152153 then it "can build ios" $ inTmpObInit $ \_ -> nixBuild ["-A", "ios.frontend"]
153154 else it "can build android after accepting license" $ inTmpObInit $ \dir -> do
154155 let defaultNixPath = dir </> ("default.nix" :: Shelly.FilePath)