Merge remote-tracking branch 'origin/master'

airalab · Oct 19, 2016 · 182648f · 182648f
2 parents 7e8e578 + af8e1eb
commit 182648f
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/README.md b/README.md
@@ -1 +1,3 @@
-# aira
+# Aira
+
+Please, start here: https://github.com/airalab/aira/releases
diff --git a/aira-ethereum-bot/app/Main.hs b/aira-ethereum-bot/app/Main.hs
@@ -19,7 +19,7 @@ helpMessage = T.unlines
     , "/transfer - money transfer to Telegram account"
 --    , "/event - append event listener"
 --    , "/event_off - remove event listener"
-    , "/delete - remove account address"
+    , "/unregister - remove account address"
     , "/cancel - stop command execution"
     , "/help or any text - show this message" ]
 
@@ -36,7 +36,7 @@ main = do
             , ("/start", Story.start codedb)
             , ("/send", Story.send)
             , ("/transfer", Story.transfer)
-            , ("/delete", Story.delete)
+            , ("/unregister", Story.unregister)
 --            , ("/event", Story.event db)
 --            , ("/event_off", Story.eventOff db)
             ]

diff --git a/aira-ethereum-bot/app/Story.hs b/aira-ethereum-bot/app/Story.hs
@@ -150,8 +150,8 @@ send = withUsername noName $ withAddress noRegStory $ \address c -> do
                     <> etherscan_tx tx
     else return $ toMessage ("I can't send zero tokens!" :: Text)
 
-delete :: Story
-delete = withUsername noName $ \name c -> do
+unregister :: Story
+unregister = withUsername noName $ \name c -> do
     res <- question $ T.unlines [ "Do you want to delete account address?"
                                 , "Send me 'Do as I say!' to confirm." ]
     case res :: Text of