1 files changed, 3 insertions, 5 deletions

diff --git a/SSHKey.hs b/SSHKey.hs
index 6e92e43..488f55f 100644
--- a/SSHKey.hs
+++ b/SSHKey.hs
@@ -8,7 +8,7 @@ import Data.Binary.Get ( runGet )
 import Data.Binary.Put ( putWord32be, runPut, putByteString )
 import Data.Binary     ( get, put )
 import Data.Monoid     ( (<>) )
-import Data.Maybe      ( fromMaybe, listToMaybe )
+import Data.Maybe      ( listToMaybe )
 import Data.Char       ( isSpace )
 import Control.Monad   ( guard )
 import LengthPrefixedBE
@@ -28,8 +28,8 @@ keyblob (n,e) = "ssh-rsa " <> blob
         put (LengthPrefixedBE e)
         put (LengthPrefixedBE n)
 
-blobkey :: L8.ByteString -> Key
-blobkey bs = fromMaybe er $ do
+blobkey :: L8.ByteString -> Maybe Key
+blobkey bs = do
     let (pre,bs1) = L8.splitAt 7 bs
     guard $ pre == "ssh-rsa"
     let (sp,bs2) = L8.span isSpace bs1
@@ -38,8 +38,6 @@ blobkey bs = fromMaybe er $ do
     qq <- L.pack `fmap` Base64.decode (L8.unpack bs3)
     decode_sshrsa qq
  where
-    er = error "Unsupported key format"
-
     decode_sshrsa :: L8.ByteString -> Maybe Key
     decode_sshrsa bs = do
         let (pre,bs1) = L8.splitAt 11 bs