14 lines
332 B
Elm
14 lines
332 B
Elm
|
module Update.Viewer exposing (update)
|
||
|
|
|
||
|
|
import Types exposing (..)
|
||
|
|
|
||
|
|
|
||
|
|
update : ViewerMsg -> Maybe Viewer -> ( Maybe Viewer, Cmd Msg )
|
||
|
|
update viewerMsg viewer =
|
||
|
|
case viewerMsg of
|
||
|
|
CloseViewer ->
|
||
|
|
Nothing ! []
|
||
|
|
|
||
|
|
OpenViewer attachments attachment ->
|
||
|
|
(Just <| Viewer attachments attachment) ! []
|