From c4f47c4856e958dbc9fb94850eb747b2bc21b39e Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Tue, 30 Apr 2019 10:25:50 +0200 Subject: [PATCH] minor --- src/Handler/Material.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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