blob: 18224ea2aabd9bc722eada1ae157ca8ac71f1cc1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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 = String.fromList << List.reverse
|
