From ef132cc656be7ab2a36f62333001fed76045a26e Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 27 Mar 2019 16:59:18 +0100 Subject: [PATCH] Fix build --- src/Handler/Course.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 22dce2e4d..e7fa74ea1 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -372,7 +372,7 @@ getCourseNewR = do <*> iopt ciField "ssh" <*> iopt ciField "csh" - let courseEditHandler' = courseEditHandler $ \p -> Just . SomeRoute $ (CourseNewR, getParams) :#: p) + let courseEditHandler' = courseEditHandler $ \p -> Just . SomeRoute $ (CourseNewR, getParams) :#: p getParams = concat [ [ ("tid", toPathPiece tid) | FormSuccess (Just tid, _, _) <- [params] ] , [ ("ssh", toPathPiece ssh) | FormSuccess (_, Just ssh, _) <- [params] ]