Add Applicative imports for GHC 7.8.

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

@@ -24,6 +24,7 @@ module Web.ServerSession.Backend.Acid.Internal
   , AcidStorage(..)
   ) where
 
+import Control.Applicative ((<$>), (<*>))
 import Control.Monad.Reader (ask)
 import Control.Monad.State (get, modify', put)
 import Data.Acid

serversession-backend-acid-state/tests/Main.hs

@@ -1,5 +1,6 @@
 module Main (main) where
 
+import Control.Applicative ((<$>))
 import Data.Acid.Local (openLocalState, createCheckpointAndClose)
 import Data.Acid.Memory (openMemoryState)
 import Test.Hspec

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

@@ -12,6 +12,7 @@ module Web.ServerSession.Backend.Persistent.Internal.Impl
   , throwSS
   ) where
 
+import Control.Applicative ((<$>), (<*>))
 import Control.Monad (void)
 import Control.Monad.IO.Class (liftIO)
 import Data.Proxy (Proxy(..))

serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Types.hs

@@ -12,6 +12,7 @@ module Web.ServerSession.Backend.Persistent.Internal.Types
     -- $orphanSessionMap
   ) where
 
+import Control.Applicative ((<$>))
 import Control.Arrow (first)
 import Control.Monad ((>=>), mzero)
 import Data.ByteString (ByteString)

serversession-frontend-snap/src/Web/ServerSession/Frontend/Snap/Internal.hs

@@ -12,6 +12,7 @@ module Web.ServerSession.Frontend.Snap.Internal
   , forceInvalidate
   ) where
 
+import Control.Applicative ((<$>))
 import Control.Arrow (first, second)
 import Control.Monad.IO.Class (liftIO)
 import Data.ByteString (ByteString)

serversession-frontend-wai/src/Web/ServerSession/Frontend/Wai/Internal.hs

@@ -10,6 +10,7 @@ module Web.ServerSession.Frontend.Wai.Internal
   , forceInvalidate
   ) where
 
+import Control.Applicative ((<$>))
 import Control.Monad (guard)
 import Control.Monad.IO.Class (MonadIO(..))
 import Data.ByteString (ByteString)

serversession/src/Web/ServerSession/Core/Internal.hs

@@ -45,6 +45,7 @@ module Web.ServerSession.Core.Internal
   , ForceInvalidate(..)
   ) where
 
+import Control.Applicative ((<$>), (<*>))
 import Control.Monad (guard, when)
 import Control.Monad.IO.Class (MonadIO(..))
 import Data.ByteString (ByteString)

serversession/src/Web/ServerSession/Core/StorageTests.hs

@@ -7,6 +7,7 @@ module Web.ServerSession.Core.StorageTests
   ( allStorageTests
   ) where
 
+import Control.Applicative ((<$>), (<*>))
 import Control.Exception (Exception)
 import Control.Monad
 import Web.ServerSession.Core.Internal

serversession/tests/Main.hs

@@ -1,5 +1,6 @@
 module Main (main) where
 
+import Control.Applicative ((<$>), (<*>))
 import Control.Arrow
 import Control.Monad
 import Data.Maybe