remove automatic notices at every state change

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