From 68824a41569cfe0eece74e0edaceeff25d421061 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <vincent@kivra.com>
Date: Sat, 21 Nov 2015 03:02:56 +0100
Subject: [PATCH] [all] Stylish Haskell import formatting

---
 src/Blog.hs    | 30 +++++++++++++++---------------
 src/Locales.hs |  2 +-
 src/RSS.hs     | 16 ++++++++--------
 src/Server.hs  | 20 ++++++++++----------
 4 files changed, 34 insertions(+), 34 deletions(-)

diff --git a/src/Blog.hs b/src/Blog.hs
index cef163fa5..70adcc1ac 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 2b578e094..a05379d41 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 6a244129f..34804cbf0 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 69eff3a78..4eef611ed 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)