From 7e442c937e1d0696c2cff591a06e869f92d08595 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 22 Mar 2015 13:29:45 +0100
Subject: Better support from keyboard thanks to event.which on key press

---
 src/Main.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Main.elm')

diff --git a/src/Main.elm b/src/Main.elm
index 4fab1e9..fda7c01 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -11,6 +11,7 @@ import Keyboard
 import Char
 import Dict
 import List
+import Keyboard (KeyCode)
 
 import Model.Model (..)
 import Model.Position (..)
@@ -31,7 +32,7 @@ input =
     [ Signal.subscribe updates
     , Signal.map DeltaTime (fps 30)
     , Signal.map (\_ -> ClickAway) clickAway
-    , Signal.map KeyPressed Keyboard.lastPressed
+    , Signal.map KeyPressed keyPress
     ]
 
 port clickPosition : Signal Value
@@ -52,6 +53,8 @@ port ringingTimers =
     model
       |> Signal.dropRepeats
 
+port keyPress : Signal KeyCode
+
 port clickAway : Signal ()
 
 port initialTime : Time
-- 
cgit v1.2.3