@@ -178,10 +178,10 @@ generateDocs (Env maybeRoot _ _ _) =
178178 Details.ValidApp _ ->
179179 Task.throw $ Exit.DiffApplication
180180
181− Details.ValidPkg pkg exposed ->
181+ Details.ValidPkg _ exposed ->
182182 case exposed of
183183 [] ->
184− Task.throw $ Exit.DiffNoExposed pkg
184+ Task.throw $ Exit.DiffNoExposed
185185
186186 e:es ->
187187 Task.eio Exit.DiffBadBuild $