c8h4/aux-search
1
0
Fork 0
Code Issues Pull requests Packages Releases Activity

implement NotAsked, Error and empty search result view (#28)

Browse source 
fixes #25
fixes #26
fixes #27
This commit is contained in:
Rok Garbas 2020-05-12 00:00:23 +02:00 committed by GitHub
parent 645813cbd1
commit ec4c23f295
Failed to generate hash of commit
1 changed files with 51 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
src/ElasticSearch.elm
View file

@ -22,6 +22,7 @@ import Html
, em
, form
, h1
, h4
, input
, li
, option
@ -265,12 +266,18 @@ 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 ->
if result.hits.total.value == 0 then
div []
[ h4 [] [ text <| "No " ++ path ++ " found!" ]
]
else
div []
[ p []
[ em []
@ -297,10 +304,27 @@ view path title model viewSuccess outMsg =
]
RemoteData.Failure error ->
div []
[ text "Error!"
let
( errorTitle, errorMessage ) =
case error of
Http.BadUrl text ->
( "Bad Url!", text )
--, pre [] [ text (Debug.toString error) ]
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
]
]