diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index fe2f56aa8..9edeba5a2 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -248,7 +248,9 @@ getSheetListR tid csh = do
     , dbtStyle     = def
     , dbtIdent     = "sheets" :: Text
     }
---     <- runDB
+--   stats <- runDB $ do
+--     <- E.select $ E.from $
+--
   defaultLayout $ do
     $(widgetFile "sheetList")