Adjust error message

This commit is contained in:
Tessa Kelly 2020-09-09 12:07:07 -07:00
parent 819aee116d
commit 49f9880181

View File

@ -166,18 +166,17 @@ view_ model =
, Html.main_ [ css [ flexGrow (int 1), sectionStyles ] ] , Html.main_ [ css [ flexGrow (int 1), sectionStyles ] ]
(case model.route of (case model.route of
Routes.Doodad doodad -> Routes.Doodad doodad ->
[ mainContentHeader ("Viewing " ++ doodad ++ " doodad only") case List.head (examples (\m -> m.name == doodad)) of
, examples (\m -> m.name == doodad) Just example ->
|> List.head [ mainContentHeader ("Viewing " ++ doodad ++ " doodad only")
|> Maybe.map , Html.div [ id (String.replace "." "-" example.name) ]
(\example -> [ Example.view example
Html.div [ id (String.replace "." "-" example.name) ] |> Html.map (UpdateModuleStates example.name)
[ Example.view example ]
|> Html.map (UpdateModuleStates example.name) ]
]
) Nothing ->
|> Maybe.withDefault (Html.text "Oops! We couldn't find that doodad.") [ Html.text <| "Oops! We couldn't find " ++ doodad ]
]
Routes.Category category -> Routes.Category category ->
[ mainContentHeader (Category.forDisplay category) [ mainContentHeader (Category.forDisplay category)