Update constraints and code for 0.18

This commit is contained in:
Evan Czaplicki
2016-10-07 11:24:39 -07:00
parent 86377edfcc
commit 8206138b89
2 changed files with 4 additions and 4 deletions

View File

@@ -476,7 +476,7 @@ toHeaderInfo (State sortName isReversed) toMsg { name, sorter } =
onClick : String -> Bool -> (State -> msg) -> Attribute msg
onClick name isReversed toMsg =
E.on "click" <| Json.map toMsg <|
Json.object2 State (Json.succeed name) (Json.succeed isReversed)
Json.map2 State (Json.succeed name) (Json.succeed isReversed)
viewRow : (data -> String) -> List (ColumnData data msg) -> (data -> List (Attribute msg)) -> data -> ( String, Html msg )