From 73e9081cbd07359d85926d16d9ef1bf418e61f96 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 15 May 2014 04:45:05 -0400
Subject: fixes

---
 PEM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'PEM.hs')

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)
-- 
cgit v1.2.3