diff options
author | Joe Crayne <joe@jerkface.net> | 2019-07-06 17:33:40 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-07-06 17:33:40 -0400 |
commit | b7da6a23a4ae94e8ce376376df77401ee779f028 (patch) | |
tree | b126cf0b6bc6cb0fb6e383409f35430a32fe58bf /lib/PEM.hs | |
parent | b1ae1ecdc9d1f16134ea40b07a6cedcc26a94db8 (diff) |
sigs
Diffstat (limited to 'lib/PEM.hs')
-rw-r--r-- | lib/PEM.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -20,6 +20,8 @@ data PEMBlob = PEMBlob { pemType :: L.ByteString | |||
20 | } | 20 | } |
21 | deriving (Eq,Show) | 21 | deriving (Eq,Show) |
22 | 22 | ||
23 | pemParser :: Maybe L.ByteString | ||
24 | -> ScanningParser L.ByteString PEMBlob | ||
23 | pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy | 25 | pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy |
24 | where | 26 | where |
25 | hdr typ = "-----BEGIN " <> typ <> "-----" | 27 | hdr typ = "-----BEGIN " <> typ <> "-----" |