Improved indentation

scotty-web · Jul 16, 2014 · 4c07f70 · 4c07f70
1 parent 43f4327
commit 4c07f70
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 16 deletions.
diff --git a/Web/Scotty/Action.hs b/Web/Scotty/Action.hs
@@ -29,14 +29,14 @@ module Web.Scotty.Action
     , runAction
     ) where
 
-import Blaze.ByteString.Builder (Builder, fromLazyByteString)
+import           Blaze.ByteString.Builder (Builder, fromLazyByteString)
 
 #if MIN_VERSION_mtl(2,2,1)
 import           Control.Monad.Except
 #else
 import           Control.Monad.Error
 #endif
-import Control.Monad.Reader
+import           Control.Monad.Reader
 import qualified Control.Monad.State as MS
 
 import qualified Data.Aeson as A
@@ -51,11 +51,11 @@ import qualified Data.Text as ST
 import qualified Data.Text.Lazy as T
 import           Data.Text.Lazy.Encoding (encodeUtf8)
 
-import Network.HTTP.Types
-import Network.Wai
+import           Network.HTTP.Types
+import           Network.Wai
 
-import Web.Scotty.Internal.Types
-import Web.Scotty.Util
+import           Web.Scotty.Internal.Types
+import           Web.Scotty.Util
 
 -- Nothing indicates route failed (due to Next) and pattern matching should continue.
 -- Just indicates a successful response.

diff --git a/Web/Scotty/Route.hs b/Web/Scotty/Route.hs
@@ -5,8 +5,8 @@ module Web.Scotty.Route
       capture, regex, function, literal
     ) where
 
-import Control.Arrow ((***))
-import Control.Concurrent.MVar
+import           Control.Arrow ((***))
+import           Control.Concurrent.MVar
 #if MIN_VERSION_mtl(2,2,1)
 import           Control.Monad.Except
 #else
@@ -16,21 +16,21 @@ import qualified Control.Monad.State as MS
 
 import qualified Data.ByteString.Char8 as B
 import qualified Data.ByteString.Lazy.Char8 as BL
-import Data.Maybe (fromMaybe)
-import Data.Monoid (mconcat)
-import Data.String (fromString)
+import           Data.Maybe (fromMaybe)
+import           Data.Monoid (mconcat)
+import           Data.String (fromString)
 import qualified Data.Text.Lazy as T
 import qualified Data.Text as TS
 
-import Network.HTTP.Types
-import Network.Wai (Request(..))
+import           Network.HTTP.Types
+import           Network.Wai (Request(..))
 import qualified Network.Wai.Parse as Parse hiding (parseRequestBody)
 
 import qualified Text.Regex as Regex
 
-import Web.Scotty.Action
-import Web.Scotty.Internal.Types
-import Web.Scotty.Util
+import           Web.Scotty.Action
+import           Web.Scotty.Internal.Types
+import           Web.Scotty.Util
 
 -- | get = 'addroute' 'GET'
 get :: (ScottyError e, MonadIO m) => RoutePattern -> ActionT e m () -> ScottyT e m ()