mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[all] Stylish Haskell import formatting

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/Blog.hs
View file

@ -1,21 +1,21 @@
module Blog where module Blog where
import BlogDB import BlogDB
import Control.Monad (unless, when) import Control.Monad (unless, when)
import Data.Data (Data, Typeable) import Data.Data (Data, Typeable)
import Data.List (intersperse) import Data.List (intersperse)
import Data.Maybe (fromJust) import Data.Maybe (fromJust)
import Data.Monoid (mempty) import Data.Monoid (mempty)
import Data.Text (Text, append, empty, pack) import Data.Text (Text, append, empty, pack)
import Data.Text.Lazy (fromStrict) import Data.Text.Lazy (fromStrict)
import Data.Time import Data.Time
import Locales import Locales
import Text.Blaze.Html (preEscapedToHtml) import Text.Blaze.Html (preEscapedToHtml)
import Text.Hamlet import Text.Hamlet
import Text.Lucius import Text.Lucius
import Text.Markdown import Text.Markdown
import qualified Data.Text as T import qualified Data.Text as T
-- custom list functions -- custom list functions
intersperse' :: a -> [a] -> [a] intersperse' :: a -> [a] -> [a]

2
src/Locales.hs
View file

@ -1,11 +1,11 @@
module Locales where module Locales where
import BlogDB (BlogLang (..))
import Data.Data (Data, Typeable) import Data.Data (Data, Typeable)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
import Network.URI import Network.URI
import BlogDB (BlogLang (..))
{- to add a language simply define its abbreviation and Show instance then {- to add a language simply define its abbreviation and Show instance then
- translate the appropriate strings and add CouchDB views in Server.hs -} - translate the appropriate strings and add CouchDB views in Server.hs -}

16
src/RSS.hs
View file

@ -1,15 +1,15 @@
module RSS (renderFeed) where module RSS (renderFeed) where
import qualified Data.Text as T import qualified Data.Text as T
import Control.Monad (liftM) import Control.Monad (liftM)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Data.Time (UTCTime, getCurrentTime) import Data.Time (UTCTime, getCurrentTime)
import Network.URI import Network.URI
import Text.RSS import Text.RSS
import BlogDB hiding (Title) import BlogDB hiding (Title)
import Locales import Locales
createChannel :: BlogLang -> UTCTime -> [ChannelElem] createChannel :: BlogLang -> UTCTime -> [ChannelElem]
createChannel l now = [ Language $ show l createChannel l now = [ Language $ show l

20
src/Server.hs
View file

@ -2,19 +2,19 @@
module Server where module Server where
import Control.Applicative (optional, pure, (<$>), (<*>)) import Control.Applicative (optional, pure, (<$>), (<*>))
import Control.Monad (liftM, msum, mzero, unless, when) import Control.Monad (liftM, msum, mzero, unless, when)
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Control.Monad.Reader (ask) import Control.Monad.Reader (ask)
import Data.Acid import Data.Acid
import Data.Acid.Advanced import Data.Acid.Advanced
import Data.ByteString.Char8 (ByteString, pack, unpack) import Data.ByteString.Char8 (ByteString, pack, unpack)
import Data.Char (toLower) import Data.Char (toLower)
import Data.Maybe (fromJust) import Data.Maybe (fromJust)
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
import Data.Time import Data.Time
import Happstack.Server hiding (Session) import Happstack.Server hiding (Session)
import Blog import Blog
import BlogDB hiding (updateEntry) import BlogDB hiding (updateEntry)