diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-22 03:37:44 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-22 03:37:44 +0000 |
| commit | 3b39ec8b1f8695f88fcf499d33d136aa14f15340 (patch) | |
| tree | c7ae2ebe2bc3203d84186db4cedc64aacebe5b93 | |
| parent | 8585dbf48f06408b70b7e418a9ba9800a3ccb79e (diff) | |
| download | sariulclocks-3b39ec8b1f8695f88fcf499d33d136aa14f15340.tar.gz | |
remove Applicative derivation for old GHC on demeter
| -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 |