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
-- everything by hand. :(
data GetSession sess = GetSession (SS.SessionId sess)
data DeleteSession sess = DeleteSession (SS.SessionId sess)
data DeleteAllSessionsOfAuthId sess = DeleteAllSessionsOfAuthId SS.AuthId
data InsertSession sess = InsertSession (SS.Session sess)
data ReplaceSession sess = ReplaceSession (SS.Session sess)
data GetSession sess = GetSession (SS.SessionId sess) deriving (Typeable)
data DeleteSession sess = DeleteSession (SS.SessionId sess) deriving (Typeable)
data DeleteAllSessionsOfAuthId sess = DeleteAllSessionsOfAuthId SS.AuthId deriving (Typeable)
data InsertSession sess = InsertSession (SS.Session sess) deriving (Typeable)
data ReplaceSession sess = ReplaceSession (SS.Session sess) deriving (Typeable)
instance SafeCopy (GetSession sess) where
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.Monad (void)
import Control.Monad.IO.Class (liftIO)
import Data.Monoid (mempty)
import Data.Proxy (Proxy(..))
import Data.Time (UTCTime)
import Data.Typeable (Typeable)