From 973a039b54327df74396605410ea9abe19c8a4e7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Sep 2016 21:21:11 +0200
Subject: Upgrade to elm 0.17.1

---
 src/Edition/Model/Name.elm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/Edition/Model/Name.elm

(limited to 'src/Edition/Model/Name.elm')

diff --git a/src/Edition/Model/Name.elm b/src/Edition/Model/Name.elm
new file mode 100644
index 0000000..19f4c04
--- /dev/null
+++ b/src/Edition/Model/Name.elm
@@ -0,0 +1,19 @@
+module Edition.Model.Name exposing
+  ( keyCodeToChar
+  , renderNameEdition
+  )
+
+import Char
+import String
+import List
+
+import Model.Keyboard exposing (KeyCode)
+
+keyCodeToChar : KeyCode -> Maybe Char
+keyCodeToChar = Just << Char.fromCode
+
+renderNameEdition : List Char -> String
+renderNameEdition chars =
+  chars
+    |> List.reverse
+    |> String.fromList
-- 
cgit v1.2.3