diff options
| -rw-r--r-- | src/Control/Monad/SariulClocks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Control/Monad/SariulClocks.hs b/src/Control/Monad/SariulClocks.hs index 3146d87..707e1d8 100644 --- a/src/Control/Monad/SariulClocks.hs +++ b/src/Control/Monad/SariulClocks.hs @@ -32,11 +32,11 @@ class ( Monad a newtype SariulClocksCGI a = SCC { getSCC :: StateT (Session, ScoresList) (CGIT IO) a } - deriving (Functor, Applicative, Monad, MonadIO, MonadState (Session, ScoresList)) + deriving (Functor, Monad, MonadIO, MonadState (Session, ScoresList)) newtype SariulClocksIO a = SCI { getSCI :: StateT ScoresList IO a } - deriving (Functor, Applicative, Monad, MonadIO, MonadState ScoresList) + deriving (Functor, Monad, MonadIO, MonadState ScoresList) instance MonadCGI SariulClocksCGI where cgiAddHeader n v = SCC . lift $ cgiAddHeader n v |