demo: モデルデータを改善 ページを追加しようとしたが触りづらかったのでちゃんとモデリングした。

Changes

1 changed files (+38/-42)

• demo/src/Main.elm
  • @@ -52,15 +52,17 @@ type Editability
    | ReadWrite - type EmployerRole - = RegularEmployer + type User + = Worker + | Employer | Admin type Route = DemoIndex | WorkerHome Editability - | EmployerHome EmployerRole + | EmployerHome + | AdminHome | NotFound
  • @@ -70,8 +72,8 @@ routeParser =
    [ Url.Parser.map DemoIndex Url.Parser.top , Url.Parser.map (WorkerHome Readonly) (Url.Parser.s "worker") , Url.Parser.map (WorkerHome ReadWrite) (Url.Parser.s "worker-mutable") - , Url.Parser.map (EmployerHome RegularEmployer) (Url.Parser.s "employer") - , Url.Parser.map (EmployerHome Admin) (Url.Parser.s "admin") + , Url.Parser.map EmployerHome (Url.Parser.s "employer") + , Url.Parser.map AdminHome (Url.Parser.s "admin") ]
  • @@ -170,47 +172,41 @@ view model =
    ] } - EmployerHome role -> - { title = - (case role of - RegularEmployer -> - "使用者" - - Admin -> - "管理者" - ) - ++ "ホーム | Yamori デモ" + EmployerHome -> + { title = "使用者ホーム | Yamori デモ" , body = - let - baseMenus : List (Html.Html msg) - baseMenus = - [ Html.dt [] - [ Html.a [ href "#" ] [ text "労働者の一覧を見る" ] ] - , Html.dd [] - [ text "システムに登録されている労働者の閲覧や変更を行う画面に移動します。" ] - , Html.dt [] - [ Html.a [ href "#" ] [ text "全体の予定と実績を確認する" ] ] - , Html.dd [] - [ text "すべての労働者の予定と実績をまとめて確認できる画面に移動します。" ] - ] - - adminMenus : List (Html.Html msg) - adminMenus = - [ Html.dt [] - [ Html.a [ href "#" ] [ text "カレンダーを読み込む" ] ] - , Html.dd [] - [ text "スプレッドシート形式の勤怠データをシステムに反映します。" ] - ] - in [ Html.h1 [] [ text "株式会社XXX 有給休暇管理システム" ] , Html.dl [] - (case role of - Admin -> - baseMenus ++ adminMenus + [ Html.dt [] + [ Html.a [ href "#" ] [ text "労働者の一覧を見る" ] ] + , Html.dd [] + [ text "システムに登録されている労働者の閲覧や変更を行う画面に移動します。" ] + , Html.dt [] + [ Html.a [ href "#" ] [ text "全体の予定と実績を確認する" ] ] + , Html.dd [] + [ text "すべての労働者の予定と実績をまとめて確認できる画面に移動します。" ] + ] + ] + } - _ -> - baseMenus - ) + AdminHome -> + { title = "管理者ホーム | Yamori デモ" + , body = + [ Html.h1 [] [ text "株式会社XXX 有給休暇管理システム" ] + , Html.dl [] + [ Html.dt [] + [ Html.a [ href "#" ] [ text "労働者の一覧を見る" ] ] + , Html.dd [] + [ text "システムに登録されている労働者の閲覧や変更を行う画面に移動します。" ] + , Html.dt [] + [ Html.a [ href "#" ] [ text "全体の予定と実績を確認する" ] ] + , Html.dd [] + [ text "すべての労働者の予定と実績をまとめて確認できる画面に移動します。" ] + , Html.dt [] + [ Html.a [ href "#" ] [ text "カレンダーを読み込む" ] ] + , Html.dd [] + [ text "スプレッドシート形式の勤怠データをシステムに反映します。" ] + ] ] }