TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 02:18:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix elm-analyse issues

Browse Source
This commit is contained in:
Eike Kettner
2020-01-29 20:56:14 +01:00
parent bfd5bdb0c2
commit c504a3df42
33 changed files with 42 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
modules/webapp/src/main/elm/Page/Home/Data.elm
View File

@ -6,7 +6,6 @@ module Page.Home.Data exposing
, itemNav
)
import Api.Model.ItemDetail exposing (ItemDetail)
import Api.Model.ItemLightList exposing (ItemLightList)
import Comp.ItemList
import Comp.SearchMenu

1
modules/webapp/src/main/elm/Page/Home/Update.elm
View File

@ -2,7 +2,6 @@ module Page.Home.Update exposing (update)
import Api
import Browser.Navigation as Nav
import Comp.ItemDetail
import Comp.ItemList
import Comp.SearchMenu
import Data.Flags exposing (Flags)

1
modules/webapp/src/main/elm/Page/Home/View.elm
View File

@ -1,6 +1,5 @@
module Page.Home.View exposing (view)
import Comp.ItemDetail
import Comp.ItemList
import Comp.SearchMenu
import Html exposing (..)

2
modules/webapp/src/main/elm/Page/ItemDetail/Update.elm
View File

@ -35,5 +35,5 @@ update key flags next msg model =
in
update key flags next (ItemDetailMsg lmsg) model
ItemResp (Err err) ->
ItemResp (Err _) ->
( model, Cmd.none )

2
modules/webapp/src/main/elm/Page/Register/Update.elm
View File

@ -106,7 +106,7 @@ update flags msg model =
, cmd
)
SubmitResp (Err err) ->
SubmitResp (Err _) ->
( model, Cmd.none )

7
modules/webapp/src/main/elm/Page/Upload/Data.elm
View File

@ -94,13 +94,6 @@ uploadAllTracker =
"upload-all"
isInitial : Model -> Bool
isInitial model =
Set.isEmpty model.loading
&& Set.isEmpty model.completed
&& Set.isEmpty model.errored
isDone : Model -> Bool
isDone model =
List.map makeFileId model.files

4
modules/webapp/src/main/elm/Page/Upload/View.elm
View File

@ -48,7 +48,7 @@ view mid model =
renderErrorMsg : Model -> Html Msg
renderErrorMsg model =
renderErrorMsg _ =
div [ class "row" ]
[ div [ class "sixteen wide column" ]
[ div [ class "ui large error message" ]
@ -63,7 +63,7 @@ renderErrorMsg model =
renderSuccessMsg : Bool -> Model -> Html Msg
renderSuccessMsg public model =
renderSuccessMsg public _ =
div [ class "row" ]
[ div [ class "sixteen wide column" ]
[ div [ class "ui large success message" ]