From 8714c3befcf3f9923cf72e8d992ba6d963c0e6e7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Sep 2016 15:52:17 +0200
Subject: Upgrade to elm 0.17.1

---
 src/Input.elm | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 src/Input.elm

(limited to 'src/Input.elm')

diff --git a/src/Input.elm b/src/Input.elm
deleted file mode 100644
index e18d8be..0000000
--- a/src/Input.elm
+++ /dev/null
@@ -1,28 +0,0 @@
-module Input where
-
-import Char exposing (toCode, KeyCode)
-import Keyboard exposing (keysDown, arrows, isDown)
-import Random
-import Time exposing (Time, fps)
-import Signal exposing (..)
-import Set exposing (Set)
-
-import Model.Vec2 exposing (Vec2)
-
-type alias Input =
-  { dir : Vec2
-  , inputKeysDown : Set KeyCode
-  , delta : Time
-  }
-
-getInput : Signal Input
-getInput =
-  let delta = fps 24
-      input = map3 Input (map recordIntToVec2 arrows) keysDown delta
-  in  sampleOn delta input
-
-recordIntToVec2 : {x : Int, y : Int} -> Vec2
-recordIntToVec2 {x, y} =
-  { x = toFloat x
-  , y = toFloat y
-  }
-- 
cgit v1.2.3