@@ -2,9 +2,9 @@
22{-# LANGUAGE OverloadedStrings #-}
33module Obelisk.SelfTest where
44
5−import Control.Monad.IO.Class
65import Control.Exception (throw)
76import Control.Monad
7+import Control.Monad.IO.Class
88import Data.Function (fix)
99import Data.Semigroup ((<>))
1010import Data.String
@@ -15,7 +15,8 @@ import qualified Network.HTTP.Client as HTTP
1515import qualified Network.HTTP.Types as HTTP
1616import Shelly
1717import System.Environment
18−import System.Exit (ExitCode(..))
18+import System.Exit (ExitCode (..))
19+import System.Info
1920import System.IO (Handle)
2021import System.IO.Temp
2122import System.Timeout
@@ -43,6 +44,10 @@ main = do
4344 it "can build ghcjs.frontend" $ inProj $ do
4445 run "nix-build" ["--no-out-link", "-A", "ghcjs.frontend"]
4546
47+ if (os == "darwin")
48+ then it "can build ios" $ inProj $ run "nix-build" $ ["--no-out-link", "-A", "ios.frontend" ]
49+ else it "can build android" $ inProj $ run "nix-build" $ ["--no-out-link", "-A", "android.frontend"]
50+
4651 forM_ ["ghc", "ghcjs"] $ \compiler -> do
4752 let
4853 shell = "shells." <> compiler