Skip to content
Permalink
Browse files

implement NotAsked, Error and empty search result view

fixes #25
fixes #26
fixes #27
  • Loading branch information
garbas committed May 11, 2020
1 parent ce2121e commit 45c0d61f88abfd7468e4200d9a03551286666101
Showing with 51 additions and 27 deletions.
  1. +51 −27 src/ElasticSearch.elm
@@ -22,6 +22,7 @@ import Html
, em
, form
, h1
, h4
, input
, li
, option
@@ -265,42 +266,65 @@ view path title model viewSuccess outMsg =
]
, case model.result of
RemoteData.NotAsked ->
div [] [ text "NotAsked" ]
div [] [ text "" ]

RemoteData.Loading ->
div [] [ text "Loading" ]

RemoteData.Success result ->
div []
[ p []
[ em []
[ text
("Showing results "
++ String.fromInt model.from
++ "-"
++ String.fromInt
(if model.from + model.size > result.hits.total.value then
result.hits.total.value

else
model.from + model.size
)
++ " of "
++ String.fromInt result.hits.total.value
++ "."
)
if result.hits.total.value == 0 then
div []
[ h4 [] [ text <| "No " ++ path ++ " found!" ]
]

else
div []
[ p []
[ em []
[ text
("Showing results "
++ String.fromInt model.from
++ "-"
++ String.fromInt
(if model.from + model.size > result.hits.total.value then
result.hits.total.value

else
model.from + model.size
)
++ " of "
++ String.fromInt result.hits.total.value
++ "."
)
]
]
, viewPager outMsg model result path
, viewSuccess model.showDetailsFor result
, viewPager outMsg model result path
]
, viewPager outMsg model result path
, viewSuccess model.showDetailsFor result
, viewPager outMsg model result path
]

RemoteData.Failure error ->
div []
[ text "Error!"

--, pre [] [ text (Debug.toString error) ]
let
( errorTitle, errorMessage ) =
case error of
Http.BadUrl text ->
( "Bad Url!", text )

Http.Timeout ->
( "Timeout!", "Request to the server timeout." )

Http.NetworkError ->
( "Network Error!", "Please check your network connection." )

Http.BadStatus code ->
( "Bad Status", "Server returned " ++ String.fromInt code )

Http.BadBody text ->
( "Bad Body", text )
in
div [ class "alert alert-error" ]
[ h4 [] [ text errorTitle ]
, text errorMessage
]
]

0 comments on commit 45c0d61

Please sign in to comment.
You can’t perform that action at this time.