-- | Decodes a single given 'Char' from its dvorak encoded equivalent.
fromDvorakChar :: Char -> Char
fromDvorakChar c = case Map.lookup c fromTable of
  Just x  -> x
  Nothing -> c

fromDvorakChar :: Char -> Char
fromDvorakChar c = case Map.lookup c fromTable of
  Just x  -> x
  Nothing -> c

fromDvorakChar c = case Map.lookup c fromTable of
  Just x  -> x
  Nothing -> c
