diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 534cb49f2..8d70902bb 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -88,6 +88,7 @@ data SheetForm = SheetForm
 
 makeSheetForm :: Maybe SheetId -> Maybe SheetForm -> Form SheetForm
 makeSheetForm msId template = identForm FIDsheet $ \html -> do
+    -- TODO: SJ to refactor this; extract Code from getSEditR to joint code piece
     let oldFileIds fType
           | Just sId <- msId = fmap setFromList . fmap (map E.unValue) . runDB . E.select . E.from $ \(file `E.InnerJoin` sheetFile) -> do
               E.on $ file E.^. FileId E.==. sheetFile E.^. SheetFileFile