Basic search view for shares

This commit is contained in:
eikek
2021-10-05 01:06:52 +02:00
parent a286556116
commit 83dd675e4f
12 changed files with 577 additions and 23 deletions

View File

@ -324,7 +324,7 @@ updateShare lmsg model =
Just id ->
let
result =
Page.Share.Update.update model.flags id lmsg model.shareModel
Page.Share.Update.update model.flags model.uiSettings id lmsg model.shareModel
in
( { model | shareModel = result.model }
, Cmd.map ShareMsg result.cmd

View File

@ -432,6 +432,7 @@ viewShare texts shareId model =
, Html.map ShareMsg
(Share.viewContent texts.share
model.flags
model.version
model.uiSettings
model.shareModel
)