@@ -2,9 +2,9 @@
2{-# LANGUAGE OverloadedStrings #-}
2{-# LANGUAGE OverloadedStrings #-}
3module Obelisk.SelfTest where
3module Obelisk.SelfTest where
5−import Control.Monad.IO.Class
6import Control.Exception (throw)
5import Control.Exception (throw)
7import Control.Monad
6import Control.Monad
7+import Control.Monad.IO.Class
8import Data.Function (fix)
8import Data.Function (fix)
9import Data.Semigroup ((<>))
9import Data.Semigroup ((<>))
10import Data.String
10import Data.String
@@ -15,7 +15,8 @@ import qualified Network.HTTP.Client as HTTP
15import qualified Network.HTTP.Types as HTTP
15import qualified Network.HTTP.Types as HTTP
16import Shelly
16import Shelly
17import System.Environment
17import System.Environment
18−import System.Exit (ExitCode(..))
18+import System.Exit (ExitCode (..))
19import System.IO (Handle)
20import System.IO (Handle)
20import System.IO.Temp
21import System.IO.Temp
21import System.Timeout
22import System.Timeout
@@ -43,6 +44,10 @@ main = do
43 it "can build ghcjs.frontend" $ inProj $ do
44 it "can build ghcjs.frontend" $ inProj $ do
44 run "nix-build" ["--no-out-link", "-A", "ghcjs.frontend"]
45 run "nix-build" ["--no-out-link", "-A", "ghcjs.frontend"]
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"]
46 forM_ ["ghc", "ghcjs"] $ \compiler -> do
51 forM_ ["ghc", "ghcjs"] $ \compiler -> do
48 shell = "shells." <> compiler
53 shell = "shells." <> compiler