summaryrefslogtreecommitdiff
path: root/lib/PEM.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PEM.hs')
-rw-r--r--lib/PEM.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/PEM.hs b/lib/PEM.hs
index fd2fe98..003f4ff 100644
--- a/lib/PEM.hs
+++ b/lib/PEM.hs
@@ -20,6 +20,8 @@ data PEMBlob = PEMBlob { pemType :: L.ByteString
20 } 20 }
21 deriving (Eq,Show) 21 deriving (Eq,Show)
22 22
23pemParser :: Maybe L.ByteString
24 -> ScanningParser L.ByteString PEMBlob
23pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy 25pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy
24 where 26 where
25 hdr typ = "-----BEGIN " <> typ <> "-----" 27 hdr typ = "-----BEGIN " <> typ <> "-----"