@@ -47,6 +47,7 @@ import qualified Text.Blaze.Renderer.Utf8 as HU
47import qualified Text.Blaze.Html5.Attributes as A
47import qualified Text.Blaze.Html5.Attributes as A
49import Data.Time
49import Data.Time
50+import Data.Time.Clock.POSIX
50import System.Locale (defaultTimeLocale)
51import System.Locale (defaultTimeLocale)
52import Data.List (sortBy)
53import Data.List (sortBy)
@@ -316,9 +317,13 @@ renderDirectoryContentsTable fps =
317 H.td ! A.class_ (H.stringValue "size") $ H.string $
318 H.td ! A.class_ (H.stringValue "size") $ H.string $
318 if mdIsFile md
319 if mdIsFile md
319− then show $ mdSize md
320+ then prettyShow $ mdSize md
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)
323data MetaData =
328data MetaData =
324 FileMetaData
329 FileMetaData