@@ -35,13 +35,9 @@ import System.Directory
3535import System.FilePath
3636import System.IO.Temp (withSystemTempDirectory)
3737import System.Which (staticWhich)
38−import Data.ByteString (ByteString)
3938
4039import Obelisk.App (MonadObelisk, ObeliskT)
41−import Obelisk.CliApp
42− ( CliT (..), HasCliConfig, Severity (..)
43− , callCommand, failWith, getCliConfig, putLog, proc
44− , readProcessAndLogStderr, runCli)
40+import Obelisk.CliApp (Severity (..) , callCommand, failWith, putLog, proc, readProcessAndLogStderr)
4541import Obelisk.Command.Project (inProjectShell, withProjectRoot)
4642
4743data CabalPackageInfo = CabalPackageInfo
@@ -173,11 +169,6 @@ parseCabalPackage dir = do
173169 mapM_ (putLog Error) $ fmap (T.pack . show) errors
174170 return Nothing
175171
176−withUTF8FileContentsM :: (MonadIO m, HasCliConfig e m) => FilePath -> (ByteString -> CliT e IO a) -> m a
177−withUTF8FileContentsM fp f = do
178− c <- getCliConfig
179− liftIO $ withUTF8FileContents fp $ runCli c . f . toUTF8BS
180−
181172-- | Create ghci configuration to load the given packages
182173withGhciScript
183174 :: MonadObelisk m