diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs index cf8ad5455..22ba8ada5 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -194,7 +194,7 @@ getSheetListR tid ssh csh = do , sortable (Just "visible-from") (i18nCell MsgAccessibleSince) $ \DBRow{dbrOutput=(Entity _ Sheet{..}, _, _, _)} -> foldMap (dateTimeCellVisible now) sheetVisibleFrom , sortable (toNothing "downloads") (i18nCell MsgFiles) - $ \DBRow{dbrOutput=(Entity _ Sheet{..}, _, _, existFiles)} -> mconcat -- $ intersperse spacerCell + $ \DBRow{dbrOutput=(Entity _ Sheet{..}, _, _, existFiles)} -> mconcat [ icnCell & addIconFixedWidth | let existingSFTs = hasSFT existFiles , sft <- [minBound..maxBound]