-- | Encodes a single given 'Char' to its dvorak encoded equivalent.
toDvorakChar :: Char -> Char
toDvorakChar c = case Map.lookup c toTable of
  Just x  -> x
  Nothing -> c

toDvorakChar :: Char -> Char
toDvorakChar c = case Map.lookup c toTable of
  Just x  -> x
  Nothing -> c

toDvorakChar c = case Map.lookup c toTable of
  Just x  -> x
  Nothing -> c
