summaryrefslogtreecommitdiff
path: root/lib/PEM.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-07-06 17:33:40 -0400
committerJoe Crayne <joe@jerkface.net>2019-07-06 17:33:40 -0400
commitb7da6a23a4ae94e8ce376376df77401ee779f028 (patch)
treeb126cf0b6bc6cb0fb6e383409f35430a32fe58bf /lib/PEM.hs
parentb1ae1ecdc9d1f16134ea40b07a6cedcc26a94db8 (diff)
sigs
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 <> "-----"