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