fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor

Browse Source
This commit is contained in:
Steffen Jost 2019-04-30 10:25:50 +02:00
parent 22ffa3477d
commit c4f47c4856
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Material.hs
View File

@ -140,7 +140,11 @@ handleMaterialEdit tid ssh csh cid template dbMaterial = do
$ CourseR tid ssh csh (MaterialR mfName MShowR) $ CourseR tid ssh csh (MaterialR mfName MShowR)
insertMaterialFile' :: MaterialId -> Source Handler (Either FileId File) -> DB () 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 getMDelR, postMDelR :: TermId -> SchoolId -> CourseShorthand -> MaterialName -> Handler Html