diff options
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 <> "-----" |