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

* links on right side

Browse source
This commit is contained in:
Vincent Ambo 2012-03-06 23:34:04 +01:00
parent 6220988fc5
commit cd3a5f2cb5
4 changed files with 44 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Locales.hs
View file

@ -15,6 +15,9 @@ instance Show BlogLang where
show EN = "en"
show DE = "de"
data BlogError = NotFound | DBError
version = "2.2b"
allLang = [EN, DE]
@ -111,8 +114,8 @@ cTimeFormat EN = "[On %D at %H:%M]"
-- right side text (this is inserted AS IS. Escape HTML!)
rightText :: BlogLang -> Text
rightText DE = "English version <a href=\"en\">available here</a>"
rightText EN = "Deutsche Version <a href=\"de\">hier verf&uuml;gbar</a>"
rightText DE = "English version <a href=\"/en\" style=\"color: black;\">available here</a>."
rightText EN = "Deutsche Version <a href=\"/de\" style=\"color: black;\">hier verf&uuml;gbar</a>."
-- static information
repoURL :: Text = "https://bitbucket.org/tazjin/tazblog-haskell"