@@ -4,8 +4,8 @@
44{-# LANGUAGE OverloadedStrings #-}
55{-# LANGUAGE PatternGuards #-}
66{-# LANGUAGE ScopedTypeVariables #-}
7−{-# LANGUAGE ViewPatterns #-}
87{-# LANGUAGE TemplateHaskell #-}
8+{-# LANGUAGE ViewPatterns #-}
99module Obelisk.SelfTest where
1010
1111import Control.Exception (bracket, throw)
@@ -17,7 +17,6 @@ import Data.Semigroup ((<>))
1717import qualified Data.Set as Set
1818import Data.String
1919import Data.Text (Text)
20−import Data.Void
2120import qualified Data.Text as T
2221import qualified Data.Text.IO as T
2322import qualified Network.HTTP.Client as HTTP
@@ -35,8 +34,6 @@ import System.Process (readProcessWithExitCode)
3534import Test.Hspec
3635import Test.HUnit.Base
3736
38−import Obelisk.CliApp hiding (runCli, readCreateProcessWithExitCode)
39−import qualified Obelisk.CliApp as CliApp
4037import Obelisk.ExecutableConfig.Lookup (getConfigs)
4138import Obelisk.Run (getConfigRoute)
4239
@@ -84,12 +81,6 @@ commit msg = void $ run gitPath $ gitUserConfig <> [ "commit"
8481 , msg
8582 ]
8683
87−-- TODO replace Void and stop using loosely typed synchronous exceptions
88−runCli :: MonadIO m => CliT Void IO a -> m a
89−runCli f = liftIO $ do
90− c <- newCliConfig Notice False False (\case {})
91− CliApp.runCli c f
92−
9384tshow :: Show a => a -> Text
9485tshow = T.pack . show
9586