KnownHosts encode/decode

1 files changed, 2 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index 98ac4c7..c00ab84 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -224,7 +224,8 @@ modifyUID other              = other
 readPublicKey :: Char8.ByteString -> RSAPublicKey
 readPublicKey bs = RSAKey (MPI n) (MPI e)
  where
-    (n,e) = SSH.blobkey bs
+    (n,e) = fromMaybe (error "Unsupported key format")
+                $ SSH.blobkey bs
 
 -- | Returns the given list with its last element modified.
 toLast :: (x -> x) -> [x] -> [x]