submissionPreviewR :: CurrentScenario -> Route App
submissionPreviewR cSc = ProposalPreviewR (currentScenarioExerciseId cSc)
                                          (currentScenarioAuthorId cSc)
submissionPreviewR :: CurrentScenario -> Route App
submissionPreviewR cSc = ProposalPreviewR (currentScenarioExerciseId cSc)
                                          (currentScenarioAuthorId cSc)
submissionPreviewR cSc = ProposalPreviewR (currentScenarioExerciseId cSc)
                                          (currentScenarioAuthorId cSc)