Widen the type on incState in MonadUtils

diff --git a/src/Dyna/XXX/MonadUtils.hs b/src/Dyna/XXX/MonadUtils.hs
index cb0349aa0a174500358db3e7e037d06792983520..9cfd7b32f143a6b68ac711e8fde47711fbfb56fc 100644 (file)
--- a/src/Dyna/XXX/MonadUtils.hs
+++ b/src/Dyna/XXX/MonadUtils.hs
@@ -14,7 +14,7 @@ bracketState bs m = do
  return (r, bs)
 
 
-incState :: (MonadState Int m) => m Int
+incState :: (Num a, MonadState a m) => m a
 incState = do
   s <- get
   put $! (s+1)