* guarding showLinks against negative numbers

This commit is contained in:
Vincent Ambo 2012-03-06 21:24:58 +01:00
parent 91d197945f
commit 6220988fc5
2 changed files with 29 additions and 22 deletions

View file

@ -1,4 +1,4 @@
{-# LANGUAGE ScopedTypeVariables, DeriveDataTypeable #-}
{-# LANGUAGE ScopedTypeVariables, DeriveDataTypeable, OverloadedStrings #-}
module Locales where
@ -101,6 +101,7 @@ cwHead :: BlogLang -> Text
cwHead DE = "Kommentieren:"
cwHead EN = "Comment:"
cSingle :: BlogLang -> Text
cSingle DE = "Kommentar:" --input label
cSingle EN = "Comment:"