From 8c17f3354a6e7768ecf427e4c0a899cbff9c7e0a Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 5 Dec 2020 13:07:46 +0100 Subject: [PATCH] fix: remove manually inserted error for testing --- src/Handler/Material.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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