diff --git a/src/Pages/UploadFileView.elm b/src/Pages/UploadFileView.elm new file mode 100644 index 0000000000000000000000000000000000000000..080180e9c2af3895bde4fd2eb43974ec0f8ac6a3 --- /dev/null +++ b/src/Pages/UploadFileView.elm @@ -0,0 +1,8 @@ +module Pages.UploadFileView exposing (..) + +import Html exposing (..) +import Types exposing (Msg) + +uploadView : Html Msg +uploadView = + div [] [] \ No newline at end of file diff --git a/src/Types.elm b/src/Types.elm index 3e9417d5e78dcd15d7ff71d6eb8f681daf640562..6f8a1872f0664dff023278a4614e106cbdf22f11 100644 --- a/src/Types.elm +++ b/src/Types.elm @@ -36,6 +36,7 @@ type Route = HomeRoute | QuestionRoute Int | ResultRoute + | Upload | NotFound -- Represents a graph, including its window and functions. diff --git a/src/View.elm b/src/View.elm index 8b8bab0f15c6e900c0203a975143aaf4b50f8335..31406f4d0a4038c106b274df9e6c398c7c6890ca 100644 --- a/src/View.elm +++ b/src/View.elm @@ -3,10 +3,11 @@ module View exposing (..) import Html exposing (..) import Browser -import Pages.HomeView -import Pages.QuizView -import Pages.ResultView -import Pages.NotFound +import Pages.HomeView exposing (homeView) +import Pages.QuizView exposing (questionView) +import Pages.ResultView exposing (resultView) +import Pages.NotFound exposing (notFoundView) +import Pages.UploadFileView exposing (uploadView) import Types exposing (Model, Msg(..), Route(..)) @@ -16,13 +17,15 @@ view model = let routeContent = case model.route of HomeRoute -> - Pages.HomeView.homeView model + homeView model QuestionRoute n -> - Pages.QuizView.questionView n model.quiz + questionView n model.quiz ResultRoute -> - Pages.ResultView.resultView model + resultView model + Upload -> + uploadView NotFound -> - Pages.NotFound.notFoundView + notFoundView in { title = "Mathe Quiz App" , body = [routeContent]