diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 83d0bc9cf..1d08e0ba8 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -364,7 +364,12 @@ getSShowR tid ssh csh shn = do
         -- return desired columns
         return $ (file E.^. FileTitle, file E.^. FileModified, sheetFile E.^. SheetFileType)
   let colonnadeFiles = widgetColonnade $ mconcat
-        [ sortable (Just "type") (i18nCell MsgSheetFileTypeHeader) $ \(_,_, E.Value ftype) -> i18nCell ftype & cellContents %~ (\act -> act <* tell (Any True))
+        [ sortable (Just "type") (i18nCell MsgSheetFileTypeHeader) $ \(_,_, E.Value ftype) ->
+            let link = CSheetR tid ssh csh shn $ SZipR ftype in
+            tellCell (Any True) $
+            anchorCell link [whamlet|#{sheetFile2markup ftype}  _{ftype}|]
+            -- i18nCell ftype & cellContents %~ (\act -> act <* tell (Any True))
+
         -- , colFilePath (view _1) (\row -> let fType = view _3 row in let fName = view _1 row in (CSheetR tid ssh csh shn (SFileR (E.unValue fType) (E.unValue fName))))
         , sortable (Just "path") (i18nCell MsgFileTitle) $ \(E.Value fName,_,E.Value fType) -> anchorCell
              (CSheetR tid ssh csh shn (SFileR fType fName))