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