diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs
index fd484d8ec..ca7a05b62 100644
--- a/src/Handler/Material.hs
+++ b/src/Handler/Material.hs
@@ -140,7 +140,11 @@ handleMaterialEdit tid ssh csh cid template dbMaterial = do
         $ CourseR tid ssh csh (MaterialR mfName MShowR)
 
     insertMaterialFile' :: MaterialId -> Source Handler (Either FileId File) -> DB ()
-    insertMaterialFile' = error "TODO"
+    insertMaterialFile' mid fs = do
+      oldFileIds <- E.select . E.from $ \(file `E.InnerJoin` materialFile) -> do
+        error "TODO"
+
+      error "TODO"
 
 
 getMDelR, postMDelR :: TermId -> SchoolId -> CourseShorthand ->  MaterialName -> Handler Html