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