Skip to content
This repository
Browse code

Removed unused language extensions.

  • Loading branch information...
commit 9c33d7fd21bae5aed055971e58665966819e1fbd 1 parent 7a4df56
Doug Beardsley authored September 28, 2011
11  src/Snap/Snaplet/Heist.hs
... ...
@@ -1,14 +1,3 @@
1  
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
2  
-{-# LANGUAGE TemplateHaskell #-}
3  
-{-# LANGUAGE NoMonomorphismRestriction #-}
4  
-{-# LANGUAGE OverloadedStrings #-}
5  
-{-# LANGUAGE FlexibleInstances #-}
6  
-{-# LANGUAGE FlexibleContexts #-}
7  
-{-# LANGUAGE TypeFamilies #-}
8  
-{-# LANGUAGE TypeOperators #-}
9  
-{-# LANGUAGE RankNTypes #-}
10  
-{-# LANGUAGE MultiParamTypeClasses #-}
11  
-
12 1
 {-|
13 2
 
14 3
 The Heist snaplet makes it easy to add Heist to your application and use it in
10  src/Snap/Snaplet/HeistNoClass.hs
... ...
@@ -1,12 +1,6 @@
1 1
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
2  
-{-# LANGUAGE TemplateHaskell #-}
3  
-{-# LANGUAGE NoMonomorphismRestriction #-}
4  
-{-# LANGUAGE OverloadedStrings #-}
5  
-{-# LANGUAGE FlexibleInstances #-}
6  
-{-# LANGUAGE FlexibleContexts #-}
7  
-{-# LANGUAGE MultiParamTypeClasses #-}
8  
-{-# LANGUAGE TypeOperators #-}
9  
-{-# LANGUAGE RankNTypes #-}
  2
+{-# LANGUAGE OverloadedStrings          #-}
  3
+{-# LANGUAGE MultiParamTypeClasses      #-}
10 4
 module Snap.Snaplet.HeistNoClass
11 5
   ( Heist
12 6
   , heistInit
7  src/Snap/Snaplet/Internal/Initializer.hs
... ...
@@ -1,12 +1,5 @@
1 1
 {-# LANGUAGE OverloadedStrings          #-}
2 2
 {-# LANGUAGE BangPatterns               #-}
3  
-{-# LANGUAGE ExistentialQuantification  #-}
4  
-{-# LANGUAGE FlexibleInstances          #-}
5  
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
6  
-{-# LANGUAGE MultiParamTypeClasses      #-}
7  
-{-# LANGUAGE RankNTypes                 #-}
8  
-{-# LANGUAGE TypeOperators              #-}
9  
-{-# LANGUAGE TemplateHaskell            #-}
10 3
 
11 4
 module Snap.Snaplet.Internal.Initializer
12 5
 ( addPostInitHook
3  src/Snap/Snaplet/Internal/LensT.hs
... ...
@@ -1,10 +1,7 @@
1 1
 {-# LANGUAGE BangPatterns               #-}
2  
-{-# LANGUAGE FlexibleContexts           #-}
3 2
 {-# LANGUAGE FlexibleInstances          #-}
4  
-{-# LANGUAGE GADTs                      #-}
5 3
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
6 4
 {-# LANGUAGE MultiParamTypeClasses      #-}
7  
-{-# LANGUAGE TypeOperators              #-}
8 5
 
9 6
 module Snap.Snaplet.Internal.LensT where
10 7
 
4  src/Snap/Snaplet/Internal/RST.hs
... ...
@@ -1,10 +1,6 @@
1 1
 {-# LANGUAGE BangPatterns               #-}
2  
-{-# LANGUAGE FlexibleContexts           #-}
3 2
 {-# LANGUAGE FlexibleInstances          #-}
4  
-{-# LANGUAGE GADTs                      #-}
5  
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
6 3
 {-# LANGUAGE MultiParamTypeClasses      #-}
7  
-{-# LANGUAGE TypeOperators              #-}
8 4
 
9 5
 module Snap.Snaplet.Internal.RST where
10 6
 
6  src/Snap/Snaplet/Internal/Types.hs
... ...
@@ -1,14 +1,8 @@
1 1
 {-# LANGUAGE BangPatterns               #-}
2  
-{-# LANGUAGE CPP                        #-}
3  
-{-# LANGUAGE FlexibleInstances          #-}
4 2
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
5 3
 {-# LANGUAGE MultiParamTypeClasses      #-}
6  
-{-# LANGUAGE NoMonomorphismRestriction  #-}
7 4
 {-# LANGUAGE OverloadedStrings          #-}
8  
-{-# LANGUAGE RankNTypes                 #-}
9 5
 {-# LANGUAGE TemplateHaskell            #-}
10  
-{-# LANGUAGE TypeFamilies               #-}
11  
-{-# LANGUAGE TypeOperators              #-}
12 6
 {-# LANGUAGE FlexibleContexts           #-}
13 7
 
14 8
 module Snap.Snaplet.Internal.Types where
10  src/Snap/Snaplet/Session.hs
... ...
@@ -1,7 +1,3 @@
1  
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
2  
-{-# LANGUAGE RankNTypes #-}
3  
-{-# LANGUAGE TypeOperators #-}
4  
-
5 1
 module Snap.Snaplet.Session 
6 2
 
7 3
 (
@@ -18,16 +14,10 @@ module Snap.Snaplet.Session
18 14
 
19 15
 ) where
20 16
 
21  
-import           Control.Monad.Reader
22  
-import           Control.Monad.State
23  
-import           Data.ByteString (ByteString)
24  
-import qualified Data.ByteString.Char8 as B
25 17
 import           Data.Lens.Lazy
26  
-import           Data.Serialize (Serialize)
27 18
 import           Data.Text (Text)
28 19
 
29 20
 import           Snap.Snaplet
30  
-import           Snap.Snaplet.Session.SecureCookie
31 21
 import           Snap.Core
32 22
 
33 23
 import           Snap.Snaplet.Session.SessionManager 
3  src/Snap/Snaplet/Session/Backends/CookieSession.hs
... ...
@@ -1,4 +1,5 @@
1  
-{-# LANGUAGE DeriveDataTypeable, OverloadedStrings #-}
  1
+{-# LANGUAGE OverloadedStrings          #-}
  2
+{-# LANGUAGE DeriveDataTypeable         #-}
2 3
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
3 4
 
4 5
 module Snap.Snaplet.Session.Backends.CookieSession 
2  src/Snap/Snaplet/Session/Common.hs
... ...
@@ -1,5 +1,3 @@
1  
-{-# LANGUAGE ScopedTypeVariables #-}
2  
-
3 1
 {-|
4 2
 
5 3
   This module contains functionality common among multiple back-ends.
5  src/Snap/Snaplet/Session/SessionManager.hs
... ...
@@ -1,16 +1,11 @@
1  
-{-# LANGUAGE RankNTypes #-}
2 1
 {-# LANGUAGE ExistentialQuantification #-}
3 2
 
4 3
 module Snap.Snaplet.Session.SessionManager where
5 4
 
6  
-import           Control.Monad.State
7  
-import           Data.ByteString (ByteString)
8  
-import           Data.Serialize (Serialize)
9 5
 import           Data.Text (Text)
10 6
 import           Prelude hiding (lookup)
11 7
 
12 8
 import           Snap.Core (Snap)
13  
-import           Snap.Snaplet
14 9
 
15 10
 
16 11
 -- | Any Haskell record that is a member of the 'ISessionManager' typeclass can

0 notes on commit 9c33d7f

Please sign in to comment.
Something went wrong with that request. Please try again.