Avoid external call to ssh-keygen.

1 files changed, 8 insertions, 7 deletions

diff --git a/lib/SSHKey.hs b/lib/SSHKey.hs
index bd47169..0ded986 100644
--- a/lib/SSHKey.hs
+++ b/lib/SSHKey.hs
@@ -22,6 +22,14 @@ import LengthPrefixedBE
 
 type Key = (Integer,Integer)
 
+
+sshrsa :: Integer -> Integer -> L.ByteString
+sshrsa e n = runPut $ do
+    putWord32be 7
+    putByteString "ssh-rsa"
+    put (LengthPrefixedBE e)
+    put (LengthPrefixedBE n)
+
 keyblob :: Key -> L.ByteString
 keyblob (n,e) = "ssh-rsa " <> blob
  where
@@ -32,13 +40,6 @@ keyblob (n,e) = "ssh-rsa " <> blob
     blob = L8.pack $ Base64.encode (L.unpack bs)
 #endif
 
-    sshrsa :: Integer -> Integer -> L.ByteString
-    sshrsa e n = runPut $ do
-        putWord32be 7
-        putByteString "ssh-rsa"
-        put (LengthPrefixedBE e)
-        put (LengthPrefixedBE n)
-
 blobkey :: L8.ByteString -> Maybe Key
 blobkey bs = do
     let (pre,bs1) = L8.splitAt 7 bs