From dc67ee394205802d30d888387dffa7f588099217 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 5 May 2019 13:37:01 +0200 Subject: Signed identities using ED25519 --- src/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Main.hs') 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 -- cgit v1.2.3