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

* switched main language to English

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2013-04-27 22:17:54 +02:00
parent de09c2cc68
commit 1bdbe4af64
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -60,7 +60,7 @@ tazBlog :: AcidState Blog -> String -> ServerPart Response
tazBlog acid captchakey = do
compr <- compressedResponseFilter
msum [ path $ \(lang :: BlogLang) -> blogHandler acid lang captchakey
, nullDir >> showIndex acid DE
, nullDir >> showIndex acid EN
, dir " " $ nullDir >>
seeOther ("https://plus.google.com/115916629925754851590" :: Text) (toResponse ())
, path $ \(year :: Int) -> path $ \(month :: Int) -> path $ \(id_ :: String) -> formatOldLink year month id_