From 1cf6bc1ad9209e4f3f2fcbc129f2577e74e94c99 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Dec 2015 01:03:47 +0100
Subject: Upgrade to elm 0.16.0

---
 src/Input.elm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'src/Input.elm')

diff --git a/src/Input.elm b/src/Input.elm
index 0497107..e18d8be 100644
--- a/src/Input.elm
+++ b/src/Input.elm
@@ -1,7 +1,7 @@
 module Input where
 
-import Char exposing (toCode)
-import Keyboard exposing (KeyCode, keysDown, arrows, isDown)
+import Char exposing (toCode, KeyCode)
+import Keyboard exposing (keysDown, arrows, isDown)
 import Random
 import Time exposing (Time, fps)
 import Signal exposing (..)
@@ -18,11 +18,7 @@ type alias Input =
 getInput : Signal Input
 getInput =
   let delta = fps 24
-      input =
-        Input
-          <~ map recordIntToVec2 arrows
-           ~ keysDown
-           ~ delta
+      input = map3 Input (map recordIntToVec2 arrows) keysDown delta
   in  sampleOn delta input
 
 recordIntToVec2 : {x : Int, y : Int} -> Vec2
-- 
cgit v1.2.3