remove extra Html.map

This commit is contained in:
stuart nelson 2017-02-20 21:55:41 +01:00
parent 7c9880a724
commit 737c795f8c
2 changed files with 4 additions and 3 deletions

View File

@ -94,7 +94,7 @@ silenceExtra silence =
-- TODO: Add field validations.
silenceForm : String -> Silence -> Html SilencesMsg
silenceForm : String -> Silence -> Html Msg
silenceForm kind silence =
let
base =
@ -138,6 +138,7 @@ silenceForm kind silence =
]
]
]
|> (Html.map ForSelf)
matcherForm : Silence -> Matcher -> Html SilencesMsg

View File

@ -28,7 +28,7 @@ view model =
NewSilenceRoute ->
case model.silence of
Success silence ->
Html.map silenceTranslator (Html.map Silences.Types.ForSelf (Silences.Views.silenceForm "New" silence))
Html.map silenceTranslator (Silences.Views.silenceForm "New" silence)
Loading ->
loading
@ -39,7 +39,7 @@ view model =
EditSilenceRoute id ->
case model.silence of
Success silence ->
Html.map silenceTranslator (Html.map Silences.Types.ForSelf (Silences.Views.silenceForm "Edit" silence))
Html.map silenceTranslator (Silences.Views.silenceForm "Edit" silence)
Loading ->
loading