maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[all] Fix all warnings

Browse source
This commit is contained in:
Vincent Ambo 2015-11-21 03:18:08 +01:00
parent c2fe73b027
commit 77c376e283
No known key found for this signature in database
GPG key ID: 66F505681DB8F43B
4 changed files with 46 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Server.hs
View file

@ -2,15 +2,13 @@
module Server where
import Control.Applicative (optional, pure, (<$>), (<*>))
import Control.Monad (liftM, msum, mzero, unless, when)
import Control.Applicative (optional)
import Control.Monad (msum, mzero, unless)
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.ByteString.Char8 (unpack)
import Data.Char (toLower)
import Data.Maybe (fromJust)
import Data.Text (Text)
import qualified Data.Text as T
import Data.Time
@ -136,7 +134,7 @@ postEntry acid = do
timeToId t = EntryId . read $ formatTime defaultTimeLocale "%s" t
getLang :: String -> ServerPart BlogLang
getLang "de" = return DE
getLang "en" = return EN
getLang _ = return EN -- English is default
entryList :: AcidState Blog -> BlogLang -> ServerPart Response
entryList acid lang = do