about summary refs log tree commit diff
diff options
context:
space:
mode:
authorVincent Ambo <vincent@kivra.com>2015-11-21T02·02+0100
committerVincent Ambo <vincent@kivra.com>2015-11-21T02·02+0100
commit68824a41569cfe0eece74e0edaceeff25d421061 (patch)
tree24b7b8f179453e505be974584d23016451b56ac6
parent3b3f6497bd30a2b6bfdf2ed6261b8cc4ac76f8da (diff)
[all] Stylish Haskell import formatting
-rw-r--r--src/Blog.hs30
-rw-r--r--src/Locales.hs2
-rw-r--r--src/RSS.hs16
-rw-r--r--src/Server.hs20
4 files changed, 34 insertions, 34 deletions
diff --git a/src/Blog.hs b/src/Blog.hs
index cef163fa5356..70adcc1ac722 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -1,21 +1,21 @@
 module Blog where
 
-import           BlogDB
-import           Control.Monad             (unless, when)
-import           Data.Data                 (Data, Typeable)
-import           Data.List                 (intersperse)
-import           Data.Maybe                (fromJust)
-import           Data.Monoid               (mempty)
-import           Data.Text                 (Text, append, empty, pack)
-import           Data.Text.Lazy            (fromStrict)
-import           Data.Time
-import           Locales
-import           Text.Blaze.Html           (preEscapedToHtml)
-import           Text.Hamlet
-import           Text.Lucius
-import           Text.Markdown
+import BlogDB
+import Control.Monad   (unless, when)
+import Data.Data       (Data, Typeable)
+import Data.List       (intersperse)
+import Data.Maybe      (fromJust)
+import Data.Monoid     (mempty)
+import Data.Text       (Text, append, empty, pack)
+import Data.Text.Lazy  (fromStrict)
+import Data.Time
+import Locales
+import Text.Blaze.Html (preEscapedToHtml)
+import Text.Hamlet
+import Text.Lucius
+import Text.Markdown
 
-import qualified Data.Text                 as T
+import qualified Data.Text as T
 
 -- custom list functions
 intersperse' :: a -> [a] -> [a]
diff --git a/src/Locales.hs b/src/Locales.hs
index 2b578e094ce1..a05379d410d7 100644
--- a/src/Locales.hs
+++ b/src/Locales.hs
@@ -1,11 +1,11 @@
 module Locales where
 
+import           BlogDB      (BlogLang (..))
 import           Data.Data   (Data, Typeable)
 import           Data.Maybe  (fromMaybe)
 import           Data.Text   (Text)
 import qualified Data.Text   as T
 import           Network.URI
-import           BlogDB      (BlogLang (..))
 
 {- to add a language simply define its abbreviation and Show instance then
  - translate the appropriate strings and add CouchDB views in Server.hs -}
diff --git a/src/RSS.hs b/src/RSS.hs
index 6a244129fec6..34804cbf0a55 100644
--- a/src/RSS.hs
+++ b/src/RSS.hs
@@ -1,15 +1,15 @@
 module RSS (renderFeed) where
 
-import qualified Data.Text     as T
+import qualified Data.Text as T
 
-import           Control.Monad (liftM)
-import           Data.Maybe    (fromMaybe)
-import           Data.Time     (UTCTime, getCurrentTime)
-import           Network.URI
-import           Text.RSS
+import Control.Monad (liftM)
+import Data.Maybe    (fromMaybe)
+import Data.Time     (UTCTime, getCurrentTime)
+import Network.URI
+import Text.RSS
 
-import           BlogDB        hiding (Title)
-import           Locales
+import BlogDB  hiding (Title)
+import Locales
 
 createChannel :: BlogLang -> UTCTime -> [ChannelElem]
 createChannel l  now = [ Language $ show l
diff --git a/src/Server.hs b/src/Server.hs
index 69eff3a78f62..4eef611edcfc 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -2,19 +2,19 @@
 
 module Server where
 
-import           Control.Applicative          (optional, pure, (<$>), (<*>))
-import           Control.Monad                (liftM, msum, mzero, unless, when)
-import           Control.Monad.IO.Class       (liftIO)
-import           Control.Monad.Reader         (ask)
+import           Control.Applicative    (optional, pure, (<$>), (<*>))
+import           Control.Monad          (liftM, msum, mzero, unless, when)
+import           Control.Monad.IO.Class (liftIO)
+import           Control.Monad.Reader   (ask)
 import           Data.Acid
 import           Data.Acid.Advanced
-import           Data.ByteString.Char8        (ByteString, pack, unpack)
-import           Data.Char                    (toLower)
-import           Data.Maybe                   (fromJust)
-import           Data.Text                    (Text)
-import qualified Data.Text                    as T
+import           Data.ByteString.Char8  (ByteString, pack, unpack)
+import           Data.Char              (toLower)
+import           Data.Maybe             (fromJust)
+import           Data.Text              (Text)
+import qualified Data.Text              as T
 import           Data.Time
-import           Happstack.Server             hiding (Session)
+import           Happstack.Server       hiding (Session)
 
 import Blog
 import BlogDB  hiding (updateEntry)