@@ -12,7 +12,6 @@ import qualified Data.NonEmptyList as NE
1212import qualified Data.Utf8 as Utf8
1313import qualified System.Directory as Dir
1414import qualified System.Exit as Exit
15−import qualified System.FilePath as FP
1615import System.FilePath ((</>))
1716import qualified System.Info as Info
1817import qualified System.IO as IO
@@ -95,7 +94,7 @@ getEnv =
9594
9695
9796publish :: Env -> Task.Task Exit.Publish ()
98−publish env@(Env root cache manager registry outline) =
97+publish env@(Env root _ manager registry outline) =
9998 case outline of
10099 Outline.App _ ->
101100 Task.throw Exit.PublishApplication