1 files changed, 1 insertions, 1 deletions

diff --git a/PEM.hs b/PEM.hs
index 7b27e04..f969484 100644
--- a/PEM.hs
+++ b/PEM.hs
@@ -24,7 +24,7 @@ pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy
         let typ = L.take (L.length x0 - 5) x0
         return typ
 
-    pbdy typ xs = (mblob, rs)
+    pbdy typ xs = (mblob, drop 1 rs)
      where
         (ys,rs) = span (/="-----END " <> typ <> "-----") xs
         mblob = PEMBlob typ <$> LW.pack <$> Base64.decode (L.unpack dta)