@@ -80,10 +80,9 @@ filename = (do
8080 -- Through at least version 0.9.19.1, IPKG executable values were
8181 -- possibly namespaced identifiers, like foo.bar.baz.
8282 show <$> fst <$> iName []
83− let errorMessage = filenameErrorMessage filename
84− if isNothing errorMessage
85− then return filename
86− else fail $ fromJust errorMessage)
83+ case filenameErrorMessage filename of
84+ Just errorMessage -> fail errorMessage
85+ Nothing -> return filename)
8786 <?> "filename"
8887 where
8988 -- TODO: Report failing span better! We could lookAhead,