summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormbays <>2016-03-03 20:22:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-03-03 20:22:00 (GMT)
commit8296224200a08ad398b82f8ffd48fd8d5aea6003 (patch)
tree945ab1ee2ca74668722b41b04caed4867b50093c
parent0bc64b53e42dc337c65c8f8baceb3b9224f8a58b (diff)
version 0.6.10.6.1
-rw-r--r--Interact.hs6
-rw-r--r--NEWS3
-rw-r--r--Version.hs2
-rw-r--r--intricacy.cabal2
4 files changed, 9 insertions, 4 deletions
diff --git a/Interact.hs b/Interact.hs
index bc9dce9..932469f 100644
--- a/Interact.hs
+++ b/Interact.hs
@@ -211,11 +211,13 @@ processCommand' IMMeta CmdSetServer = void.runMaybeT $ do
processCommand' IMMeta CmdToggleCacheOnly =
not <$> gets cacheOnly >>= \c -> modify $ \ms -> ms {cacheOnly = c}
-processCommand' IMMeta (CmdRegister adjustReg) = void.runMaybeT $ do
+processCommand' IMMeta (CmdRegister _) = void.runMaybeT $ do
regName <- mgetCurName
+ mauth <- gets curAuth
+ let isUs = maybe False ((==regName).authUser) mauth
let inputPassword = (hashPassword regName <$>) $ MaybeT $ lift $
textInput "Enter new password:" 64 True False Nothing Nothing
- if adjustReg
+ if isUs
then msum [ do
confirmOrBail "Log out?"
modify $ \ms -> ms {curAuth = Nothing}
diff --git a/NEWS b/NEWS
index 22c360f..731c413 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,8 @@
This is an abbreviated summary; see the git log for gory details.
+0.6.1:
+ Fix stupid bug preventing registration via keyboard command.
+
0.6:
New scoring system - you don't get the point for a solution if the lock
owner has read your note.
diff --git a/Version.hs b/Version.hs
index 2f9297e..62c2ebc 100644
--- a/Version.hs
+++ b/Version.hs
@@ -11,4 +11,4 @@
module Version where
version :: String
-version = "0.6"
+version = "0.6.1"
diff --git a/intricacy.cabal b/intricacy.cabal
index 49ba68b..0e6187f 100644
--- a/intricacy.cabal
+++ b/intricacy.cabal
@@ -1,5 +1,5 @@
name: intricacy
-version: 0.6
+version: 0.6.1
synopsis: A game of competitive puzzle-design
homepage: http://mbays.freeshell.org/intricacy
license: GPL-3