[all] Stylish Haskell import formatting
This commit is contained in:
parent
3b3f6497bd
commit
68824a4156
4 changed files with 34 additions and 34 deletions
30
src/Blog.hs
30
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]
|
||||
|
|
|
@ -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 -}
|
||||
|
|
16
src/RSS.hs
16
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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue