diff options
| -rw-r--r-- | src/Blog.hs | 30 | ||||
| -rw-r--r-- | src/Locales.hs | 2 | ||||
| -rw-r--r-- | src/RSS.hs | 16 | ||||
| -rw-r--r-- | src/Server.hs | 20 |
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) |