From 8206138b89fe4398673d323862cf7d53f40cc2c2 Mon Sep 17 00:00:00 2001
From: Evan Czaplicki <evancz@users.noreply.github.com>
Date: Fri, 7 Oct 2016 11:24:39 -0700
Subject: [PATCH] Update constraints and code for 0.18

---
 elm-package.json | 6 +++---
 src/Table.elm    | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/elm-package.json b/elm-package.json
index 3007761..64e438c 100644
--- a/elm-package.json
+++ b/elm-package.json
@@ -10,8 +10,8 @@
         "Table"
     ],
     "dependencies": {
-        "elm-lang/core": "4.0.0 <= v < 5.0.0",
-        "elm-lang/html": "1.1.0 <= v < 2.0.0"
+        "elm-lang/core": "5.0.0 <= v < 6.0.0",
+        "elm-lang/html": "2.0.0 <= v < 3.0.0"
     },
-    "elm-version": "0.17.0 <= v < 0.18.0"
+    "elm-version": "0.18.0 <= v < 0.19.0"
 }
diff --git a/src/Table.elm b/src/Table.elm
index 76b9fdb..7851935 100644
--- a/src/Table.elm
+++ b/src/Table.elm
@@ -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 )