From 6acc6a150b1ea14e49c76b928a8021a24e558f66 Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Wed, 2 Apr 2014 19:40:48 -0500
Subject: [PATCH] remove automatic notices at every state change

---
 src/Waterdeep/Monad.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/Waterdeep/Monad.hs b/src/Waterdeep/Monad.hs
index ccf7b80..36f0f0e 100644
--- a/src/Waterdeep/Monad.hs
+++ b/src/Waterdeep/Monad.hs
@@ -43,12 +43,7 @@ instance Monad Waterdeep where
    (Waterdeep m) >>= f = Waterdeep (m >>= runWaterdeep' . f)
 
 instance MonadState WaterdeepState Waterdeep where
-   state f = Waterdeep $ do
-      s <- get
-      let (a, s') = f s
-      put s'
-      lift $ prompt $ NotifyState s'
-      return a
+   state = Waterdeep . state
 
 instance MonadRandom Waterdeep where
    getRandom     = gameStdGen %%= random