about summary refs log tree commit diff
path: root/src/Server.hs
diff options
context:
space:
mode:
authorVincent Ambo <vincent@kivra.com>2015-11-21T02·18+0100
committerVincent Ambo <vincent@kivra.com>2015-11-21T02·18+0100
commit77c376e283e5dd2bde32ab1f20555c28c4adad89 (patch)
treee58288525e64ff4d76e373b288d9c05a73d59aea /src/Server.hs
parentc2fe73b02715f05cae8721d0e8474e6baa683adf (diff)
[all] Fix all warnings
Diffstat (limited to 'src/Server.hs')
-rw-r--r--src/Server.hs10
1 files changed, 4 insertions, 6 deletions
diff --git a/src/Server.hs b/src/Server.hs
index 4eef611edcfc..30cf422a83c5 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -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