@@ -178,10 +178,10 @@ generateDocs (Env maybeRoot _ _ _) =
178 Details.ValidApp _ ->
178 Details.ValidApp _ ->
179 Task.throw $ Exit.DiffApplication
179 Task.throw $ Exit.DiffApplication
181− Details.ValidPkg pkg exposed ->
181+ Details.ValidPkg _ exposed ->
182 case exposed of
182 case exposed of
184− Task.throw $ Exit.DiffNoExposed pkg
184+ Task.throw $ Exit.DiffNoExposed
187 Task.eio Exit.DiffBadBuild $
187 Task.eio Exit.DiffBadBuild $