@@ -233,6 +233,18 @@ instance A.FromJSON NotYetKnown where
233233asVerifiedPackage :: Parse PackageError VerifiedPackage
234234asVerifiedPackage = asPackage asGithubUser
235235
236+displayPackageError :: PackageError -> Text
237+displayPackageError e = case e of
238+ ErrorInPackageMeta err -> "Error in package metadata: " <> showBowerError err
239+ InvalidVersion -> "Invalid version"
240+ InvalidDeclarationType str -> "Invalid declaration type: \"" <> T.pack str <> "\""
241+ InvalidChildDeclarationType str -> "Invalid child declaration type: \"" <> T.pack str <> "\""
242+ InvalidFixity -> "Invalid fixity"
243+ InvalidKind str -> "Invalid kind: \"" <> T.pack str <> "\""
244+ InvalidDataDeclType str -> "Invalid data declaration type: \"" <> T.pack str <> "\""
245+ where
246+ (<>) = T.append
247+
236248asGithubUser :: Parse e GithubUser
237249asGithubUser = GithubUser <$> asString
238250