haskell/serversession
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More GHC 7.8 fixes (import mempty, derive Typeable).

Browse Source
This commit is contained in:
Felipe Lessa 2015-05-31 14:36:33 -03:00
parent 8a222d4a42
commit 16c4248355
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
serversession-backend-acid-state/src/Web/ServerSession/Backend/Acid/Internal.hs
View File

@ -259,11 +259,11 @@ instance ( SS.IsSessionData sess
-- makeAcidic can't handle type variables, so we have to do -- makeAcidic can't handle type variables, so we have to do
-- everything by hand. :( -- everything by hand. :(
data GetSession sess = GetSession (SS.SessionId sess) data GetSession sess = GetSession (SS.SessionId sess) deriving (Typeable)
data DeleteSession sess = DeleteSession (SS.SessionId sess) data DeleteSession sess = DeleteSession (SS.SessionId sess) deriving (Typeable)
data DeleteAllSessionsOfAuthId sess = DeleteAllSessionsOfAuthId SS.AuthId data DeleteAllSessionsOfAuthId sess = DeleteAllSessionsOfAuthId SS.AuthId deriving (Typeable)
data InsertSession sess = InsertSession (SS.Session sess) data InsertSession sess = InsertSession (SS.Session sess) deriving (Typeable)
data ReplaceSession sess = ReplaceSession (SS.Session sess) data ReplaceSession sess = ReplaceSession (SS.Session sess) deriving (Typeable)
instance SafeCopy (GetSession sess) where instance SafeCopy (GetSession sess) where
putCopy (GetSession v) = contain $ safePut v putCopy (GetSession v) = contain $ safePut v

1
serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
View File

@ -15,6 +15,7 @@ module Web.ServerSession.Backend.Persistent.Internal.Impl
import Control.Applicative ((<$>), (<*>)) import Control.Applicative ((<$>), (<*>))
import Control.Monad (void) import Control.Monad (void)
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Data.Monoid (mempty)
import Data.Proxy (Proxy(..)) import Data.Proxy (Proxy(..))
import Data.Time (UTCTime) import Data.Time (UTCTime)
import Data.Typeable (Typeable) import Data.Typeable (Typeable)