blob: 89e54416ca7ef78ae107aa535704bd401098ba0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Model.Edition.NameEdition
( keyCodeToChar
, renderNameEdition
) where
import Char
import Keyboard (KeyCode)
import String
import List
keyCodeToChar : KeyCode -> Maybe Char
keyCodeToChar = Just << Char.fromCode
renderNameEdition : List Char -> String
renderNameEdition chars =
chars
|> List.reverse
|> String.fromList
|
