There is a way to make it work, but it will be a lot more verbose/ ugly/
overengineered. Your signature would need to look something like this:
AnimateProperty : Model -> (Model -> Style) -> (Style -> Model -> Model) ->
Msg -> (Model, Msg)
AnimateProperty = model funcToExtractStyle funcToUpdateStyle animMsg =
...
-- call this as follows
(newModel, newCmd) =
animateProperty
model
(.answerTextStyle)
(\newStyle a -> { a | answerTextStyle = newStyle } )
And it will only work if all your properties are of the same type.
And if they are all of the same type, you would be better off to put all
your styles in a `Dict`, which would make the `AnimateProperty` a lot
cleaner.
--
You received this message because you are subscribed to the Google Groups "Elm
Discuss" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
