submissionR :: CurrentScenario -> Route App
submissionR cSc = SubmissionR (currentScenarioExerciseId cSc)
                              (currentScenarioAuthorId cSc)
submissionR :: CurrentScenario -> Route App
submissionR cSc = SubmissionR (currentScenarioExerciseId cSc)
                              (currentScenarioAuthorId cSc)
submissionR cSc = SubmissionR (currentScenarioExerciseId cSc)
                              (currentScenarioAuthorId cSc)