Letter pattern alias

[jonashaag]

This might be helpful for other people as well.

{-# LANGUAGE PatternSynonyms, ViewPatterns #-}

pattern Letter l <- (keyToChar -> Just l)