diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs index 5e2fcd735..dab8e610a 100644 --- a/src/Handler/Material.hs +++ b/src/Handler/Material.hs @@ -157,7 +157,7 @@ getMaterialListR tid ssh csh = do getMFileR :: TermId -> SchoolId -> CourseShorthand -> MaterialName -> FilePath -> Handler TypedContent -getMFileR tid ssh csh mnm title = error "MFileR" . serveOneFile $ fileQuery .| C.map entityVal +getMFileR tid ssh csh mnm title = serveOneFile $ fileQuery .| C.map entityVal where fileQuery = E.selectSource $ E.from $ \(course `E.InnerJoin` material `E.InnerJoin` matFile) -> do