notFoundView :: Route -> Html
notFoundView currentRoute =
  let pageTitle = "Not Found"
  in layoutView currentRoute pageTitle $ do
    H.div ! A.class_ "page-header" $ H.h1 "Not found"
    H.p $ "We couldn't find what you were looking for."
notFoundView :: Route -> Html
notFoundView currentRoute =
  let pageTitle = "Not Found"
  in layoutView currentRoute pageTitle $ do
    H.div ! A.class_ "page-header" $ H.h1 "Not found"
    H.p $ "We couldn't find what you were looking for."
notFoundView currentRoute =
  let pageTitle = "Not Found"
  in layoutView currentRoute pageTitle $ do
    H.div ! A.class_ "page-header" $ H.h1 "Not found"
    H.p $ "We couldn't find what you were looking for."