@@ -47,6 +47,7 @@ import qualified Text.Blaze.Renderer.Utf8 as HU
4747import qualified Text.Blaze.Html5.Attributes as A
4848
4949import Data.Time
50+import Data.Time.Clock.POSIX
5051import System.Locale (defaultTimeLocale)
5152
5253import Data.List (sortBy)
@@ -316,9 +317,13 @@ renderDirectoryContentsTable fps =
316317 else "-"
317318 H.td ! A.class_ (H.stringValue "size") $ H.string $
318319 if mdIsFile md
319− then show $ mdSize md
320+ then prettyShow $ mdSize md
320321 else "-"
321− formatCalendarTime _ _ _ = "FIXME formatCalendarTime"
322+ formatCalendarTime a b c = formatTime a b $ posixSecondsToUTCTime (realToFrac c :: POSIXTime)
323+ prettyShow = (++ " bytes") . reverse . addCommas . reverse . show
324+ addCommas (a:b:c:d:e) = a : b : c : ',' : addCommas (d : e)
325+ addCommas x = x
326+
322327
323328data MetaData =
324329 FileMetaData