Minor comment

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