[all] Stylish Haskell import formatting

This commit is contained in:
Vincent Ambo 2015-11-21 03:02:56 +01:00
parent 3b3f6497bd
commit 68824a4156
No known key found for this signature in database
GPG key ID: 66F505681DB8F43B
4 changed files with 34 additions and 34 deletions

View file

@ -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]

View file

@ -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 -}

View file

@ -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

View file

@ -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)