@@ -12,7 +12,6 @@ import qualified Data.NonEmptyList as NE
12import qualified Data.Utf8 as Utf8
12import qualified Data.Utf8 as Utf8
13import qualified System.Directory as Dir
13import qualified System.Directory as Dir
14import qualified System.Exit as Exit
14import qualified System.Exit as Exit
15−import qualified System.FilePath as FP
16import System.FilePath ((</>))
15import System.FilePath ((</>))
17import qualified System.Info as Info
16import qualified System.Info as Info
18import qualified System.IO as IO
17import qualified System.IO as IO
@@ -95,7 +94,7 @@ getEnv =
97publish :: Env -> Task.Task Exit.Publish ()
96publish :: Env -> Task.Task Exit.Publish ()
98−publish env@(Env root cache manager registry outline) =
97+publish env@(Env root _ manager registry outline) =
99 case outline of
98 case outline of
100 Outline.App _ ->
99 Outline.App _ ->
101 Task.throw Exit.PublishApplication
100 Task.throw Exit.PublishApplication