show --cert, certificate import bug fixes

1 files changed, 2 insertions, 3 deletions

diff --git a/PEM.hs b/PEM.hs
index e6c8259..7b27e04 100644
--- a/PEM.hs
+++ b/PEM.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 module PEM where
 
-import Data.Maybe
 import Data.Monoid
 import qualified Data.ByteString.Lazy as LW
 import qualified Data.ByteString.Lazy.Char8 as L
@@ -30,5 +29,5 @@ pemParser mtyp = ScanningParser (maybe fndany fndtyp mtyp) pbdy
         (ys,rs) = span (/="-----END " <> typ <> "-----") xs
         mblob = PEMBlob typ <$> LW.pack <$> Base64.decode (L.unpack dta)
         dta = case ys of
-                _:dta_lines -> L.concat dta_lines
-                []          -> ""
+                []        -> ""
+                dta_lines -> L.concat dta_lines