From 0bd86730d398f307f8c6f3168628f8bce3f11ceb Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 18 Jul 2018 13:58:33 +0200
Subject: [PATCH] Minor comment

---
 src/Handler/Sheet.hs | 1 +
 1 file changed, 1 insertion(+)

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