как заменить @ (Haskell)

[happypsu]

здравствуйте!нужна помощь в таком вопросе, есть код.
Выполняются следующие операции:
1) getALNum, возвращающая из списка нажатий только нажатия алфавитно-цифровых клавиш.

2) getRaw, возвращающая строку, составленную из нажатых символов без учета информации о Shift и CapsLock.

3)isCapsLocked, по последовательности нажатий определяющая, остался ли после нее режим CapsLock в активированном состоянии.

4) getString, переводящая последовательность нажатий в строку.

применены функции высшего порядка. Как во второй строке можно заменить @, может возможно иначе выполнить эту функцию?

также как-то не могу понять для чего функция aux и можно ли её заменить?

import Char
data Key = Shift | CapsLock | ALN Char deriving Show

getALNum :: [Key] -> [Key]
getALNum xs = [x |x @ (ALN _) <- xs]

getRaw :: [Key] -> String
getRaw xs = [x | ALN x <- xs]

isCapsLocked :: [Key] -> Bool
isCapsLocked xs = foldl aux False xs where
  aux a key = 
    case key of 
      CapsLock -> not a
      _        ->     a

getString'' :: [Key] -> String
getString'' xs = reverse result where
  aux (str, caps, shift) key  = case key of 
    ALN c -> 
      ((if caps == shift 
        then toLower c  
        else toUpper c) : str, caps, False)
    Shift    -> (str,     caps, True)
    CapsLock -> (str, not caps, False)
    
  (result, _, _) = foldl aux ([], False, True) xs

буду очень благодарна за помощь)