Due to HasRoute-refactor CourseNewTemplateR is no longer needed

routes

@@ -60,7 +60,6 @@
 -- For Pattern Synonyms see Foundation
 /course/                    CourseListR       GET             !free
 !/course/new                CourseNewR        GET POST        !lecturer
-!/course/new/#{Maybe TermId}/#{Maybe SchoolId}/#{Maybe CourseShorthand}   CourseNewTemplateR GET   !lecturer
 /course/#TermId/#SchoolId/#CourseShorthand CourseR          !lecturer:
   /                           CShowR          GET             !free
   /register                   CRegisterR          POST        !timeANDcapacity

src/Foundation.hs

@@ -1190,7 +1190,7 @@ pageActions (CourseR tid ssh csh CShowR) =
       { menuItemType = PageActionSecondary
       , menuItemLabel = MsgMenuCourseNewTemplate
       , menuItemIcon  = Nothing
-      , menuItemRoute = SomeRoute $ CourseNewTemplateR (Just tid) (Just ssh) (Just csh)
+      , menuItemRoute = SomeRoute (CourseNewR, [("tid", toPathPiece tid), ("ssh", toPathPiece ssh), ("csh", toPathPiece csh)])
       , menuItemModal = False
       , menuItemAccessCallback' = return True
       }

src/Handler/Course.hs

@@ -18,8 +18,6 @@ import Data.Maybe
 import qualified Data.Set as Set
 import qualified Data.Map as Map
 
-import qualified Data.CaseInsensitive as CI
-
 import qualified Database.Esqueleto as E
 
 
@@ -316,13 +314,6 @@ postCRegisterR tid ssh csh = do
   redirect $ CourseR tid ssh csh CShowR
 
 
-getCourseNewTemplateR :: Maybe TermId -> Maybe SchoolId -> Maybe CourseShorthand -> Handler Html
-getCourseNewTemplateR mbTid mbSsh mbCsh =
-  redirect (CourseNewR, catMaybes [ ("tid",).termToText.unTermKey    <$> mbTid
-                                  , ("ssh",).CI.original.unSchoolKey <$> mbSsh
-                                  , ("csh",).CI.original             <$> mbCsh
-                                  ])
-
 getCourseNewR :: Handler Html -- call via toTextUrl
 getCourseNewR = do
   uid <- requireAuthId