1 files changed, 4 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 017d70d..9f6cade 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -12,6 +12,7 @@ import System.IO.Error
 
 import Identity
 import Network
+import PubKey
 import Storage
 
 
@@ -23,7 +24,9 @@ main = do
         putStr "Name: "
         hFlush stdout
         name <- T.getLine
-        let base = Identity name Nothing
+        (secret, public) <- generateKeys st
+
+        base <- sign secret =<< wrappedStore st (Identity name Nothing public)
         Right h <- replaceHead base (Left (st, "identity"))
         return h
     let sidentity = wrappedLoad (headRef idhead) :: Stored Identity