nybble
/
waterdeep
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove automatic notices at every state change

This commit is contained in:
Jesse D. McDonald 2014-04-02 19:40:48 -05:00
parent d02c06addc
commit 6acc6a150b
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Waterdeep/Monad.hs
View File

@ -43,12 +43,7 @@ instance Monad Waterdeep where
(Waterdeep m) >>= f = Waterdeep (m >>= runWaterdeep' . f) (Waterdeep m) >>= f = Waterdeep (m >>= runWaterdeep' . f)
instance MonadState WaterdeepState Waterdeep where instance MonadState WaterdeepState Waterdeep where
state f = Waterdeep $ do state = Waterdeep . state
s <- get
let (a, s') = f s
put s'
lift $ prompt $ NotifyState s'
return a
instance MonadRandom Waterdeep where instance MonadRandom Waterdeep where
getRandom = gameStdGen %%= random getRandom = gameStdGen %%= random