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] ]