From c3b26f0d4139ba9ed109e8fa6ce2d188002b0ef9 Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Thu, 29 Nov 2012 02:11:15 -0500
Subject: [PATCH] Widen the type on incState in MonadUtils

---
 src/Dyna/XXX/MonadUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Dyna/XXX/MonadUtils.hs b/src/Dyna/XXX/MonadUtils.hs
index cb0349a..9cfd7b3 100644
--- 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)
-- 
2.50.1