* Pagination (finally!)

* slight CSS change

1 files changed, 8 insertions, 4 deletions

diff --git a/src/Locales.hs b/src/Locales.hs
index c3d11bc887af..6fb5849b8c0f 100644
--- a/src/Locales.hs
+++ b/src/Locales.hs
@@ -17,6 +17,10 @@ version = ("2.2b" :: String)
 
 allLang = [EN, DE]
 
+if' :: Bool -> a -> a -> a
+if' True x _ = x
+if' False _ y = y
+
 blogTitle :: BlogLang -> String -> String
 blogTitle DE s = "Tazjins Blog" ++ s
 blogTitle EN s = "Tazjin's Blog" ++ s
@@ -59,11 +63,11 @@ getMonth l y m = monthName l m ++ show y
 entireMonth DE = "Ganzer Monat"
 entireMonth EN = "Entire month"
 
-prevMonth DE = "Früher"
-prevMonth EN = "Earlier"
+backText DE = "Früher"
+backText EN = "Earlier"
 
-nextMonth DE = "Später"
-nextMonth EN = "Later"
+nextText DE = "Später"
+nextText EN = "Later"
 
 -- contact information
 contactText DE = "Wer mich kontaktieren will: "