From f0e1005f18b63dfe3cc846babcf9c4cd67261e78 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Sun, 31 May 2015 12:57:52 -0300
Subject: [PATCH] Add Applicative imports for GHC 7.8.

---
 .../src/Web/ServerSession/Backend/Acid/Internal.hs               | 1 +
 serversession-backend-acid-state/tests/Main.hs                   | 1 +
 .../src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs    | 1 +
 .../src/Web/ServerSession/Backend/Persistent/Internal/Types.hs   | 1 +
 .../src/Web/ServerSession/Frontend/Snap/Internal.hs              | 1 +
 .../src/Web/ServerSession/Frontend/Wai/Internal.hs               | 1 +
 serversession/src/Web/ServerSession/Core/Internal.hs             | 1 +
 serversession/src/Web/ServerSession/Core/StorageTests.hs         | 1 +
 serversession/tests/Main.hs                                      | 1 +
 9 files changed, 9 insertions(+)

diff --git a/serversession-backend-acid-state/src/Web/ServerSession/Backend/Acid/Internal.hs b/serversession-backend-acid-state/src/Web/ServerSession/Backend/Acid/Internal.hs
index 356126d..a7267fa 100644
--- a/serversession-backend-acid-state/src/Web/ServerSession/Backend/Acid/Internal.hs
+++ b/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
diff --git a/serversession-backend-acid-state/tests/Main.hs b/serversession-backend-acid-state/tests/Main.hs
index 1b0cde1..7d345f6 100644
--- a/serversession-backend-acid-state/tests/Main.hs
+++ b/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
diff --git a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs b/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
index f5bc56b..8b83c2f 100644
--- a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
+++ b/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(..))
diff --git a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Types.hs b/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Types.hs
index 72efb98..74d6f03 100644
--- a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Types.hs
+++ b/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)
diff --git a/serversession-frontend-snap/src/Web/ServerSession/Frontend/Snap/Internal.hs b/serversession-frontend-snap/src/Web/ServerSession/Frontend/Snap/Internal.hs
index 732b673..3daeeec 100644
--- a/serversession-frontend-snap/src/Web/ServerSession/Frontend/Snap/Internal.hs
+++ b/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)
diff --git a/serversession-frontend-wai/src/Web/ServerSession/Frontend/Wai/Internal.hs b/serversession-frontend-wai/src/Web/ServerSession/Frontend/Wai/Internal.hs
index ae51708..e47c750 100644
--- a/serversession-frontend-wai/src/Web/ServerSession/Frontend/Wai/Internal.hs
+++ b/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)
diff --git a/serversession/src/Web/ServerSession/Core/Internal.hs b/serversession/src/Web/ServerSession/Core/Internal.hs
index c03a870..30bed40 100644
--- a/serversession/src/Web/ServerSession/Core/Internal.hs
+++ b/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)
diff --git a/serversession/src/Web/ServerSession/Core/StorageTests.hs b/serversession/src/Web/ServerSession/Core/StorageTests.hs
index e91ec66..8f430a4 100644
--- a/serversession/src/Web/ServerSession/Core/StorageTests.hs
+++ b/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
diff --git a/serversession/tests/Main.hs b/serversession/tests/Main.hs
index 8bdffc6..811395a 100644
--- a/serversession/tests/Main.hs
+++ b/serversession/tests/Main.hs
@@ -1,5 +1,6 @@
 module Main (main) where
 
+import Control.Applicative ((<$>), (<*>))
 import Control.Arrow
 import Control.Monad
 import Data.Maybe