diff options
| author | joe <joe@jerkface.net> | 2014-05-15 04:45:05 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-05-15 04:45:05 -0400 |
| commit | 73e9081cbd07359d85926d16d9ef1bf418e61f96 (patch) | |
| tree | 59976d8ecbf5eaf457ab3460d0c08b632c9beb50 /PEM.hs | |
| parent | 7307fb20e430ef896131f0fd6bfe2ae2371e1008 (diff) | |
fixes
Diffstat (limited to 'PEM.hs')
| -rw-r--r-- | PEM.hs | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -24,7 +24,7 @@ pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy | |||
| 24 | let typ = L.take (L.length x0 - 5) x0 | 24 | let typ = L.take (L.length x0 - 5) x0 |
| 25 | return typ | 25 | return typ |
| 26 | 26 | ||
| 27 | pbdy typ xs = (mblob, rs) | 27 | pbdy typ xs = (mblob, drop 1 rs) |
| 28 | where | 28 | where |
| 29 | (ys,rs) = span (/="-----END " <> typ <> "-----") xs | 29 | (ys,rs) = span (/="-----END " <> typ <> "-----") xs |
| 30 | mblob = PEMBlob typ <$> LW.pack <$> Base64.decode (L.unpack dta) | 30 | mblob = PEMBlob typ <$> LW.pack <$> Base64.decode (L.unpack dta) |