From 066762051abe5739e956aeb5f369c58c02703010 Mon Sep 17 00:00:00 2001 From: "\"Vincent Ambo ext:(%22)" Date: Fri, 24 Feb 2012 00:03:16 +0100 Subject: * rendering comments --- src/Blog.hs | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src/Blog.hs') diff --git a/src/Blog.hs b/src/Blog.hs index 1caa021d545a..80d6c45871c1 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -91,17 +91,20 @@ renderEntry entry = H.div ! A.class_ "innerBox" $ do renderComments :: [Comment] -> BlogLang -> Html renderComments [] DE = H.li $ toHtml (" Keine Kommentare" :: String) renderComments [] EN = H.li $ toHtml (" No comments yet" :: String) -renderComments comments _ = sequence_ $ map showComment comments +renderComments comments lang = sequence_ $ map showComment comments where showComment :: Comment -> Html showComment c = H.li $ do - H.a ! A.name (toValue $ cdate c) ! A.href (toValue $ "#" ++ show c) $ + H.a ! A.name (toValue $ cdate c) ! A.href (toValue $ "#" ++ (show $ cdate c)) ! A.class_ "cl" $ H.i $ toHtml $ (cauthor c ++ ": ") preEscapedString $ ctext c + H.p ! A.class_ "tt" $ toHtml (timeString $ cdate c) getTime :: Integer -> Maybe UTCTime - getTime = parseTime defaultTimeLocale "%s" (show ) - showTime (Just t) = formatTime defaultTimeLocale "[Am %d.%m.%y um %H:%M Uhr]" t - showTime Nothing = "???" -- this can not happen?? + getTime t = parseTime defaultTimeLocale "%s" (show t) + showTime DE (Just t) = formatTime defaultTimeLocale "[Am %d.%m.%y um %H:%M Uhr]" t + showTime EN (Just t) = formatTime defaultTimeLocale "[On %D at %H:%M Uhr]" t + showTime _ Nothing = "[???]" -- this can not happen?? + timeString = (showTime lang) . getTime --[Am %d.%m.%y um %H:%M Uhr] -- cgit 1.4.1