diff --git a/x509-store/Data/X509/File.hs b/x509-store/Data/X509/File.hs
index 9c8f6b1d..5e56f620 100644
--- a/x509-store/Data/X509/File.hs
+++ b/x509-store/Data/X509/File.hs
@@ -16,7 +16,7 @@ import qualified Data.ByteString.Lazy as L
 readPEMs :: FilePath -> IO [PEM]
 readPEMs filepath = do
     content <- L.readFile filepath
-    return $ either error id $ pemParseLBS content
+    either fail return $ pemParseLBS content
 
 -- | return all the signed objects in a file.
 --