Vigenere Cipher not encoding properly

Question

calcAlphaPos :: Char -> Int
calcAlphaPos a 
    | (a `elem` [\'a\'..\'z\']) = ord(a) - ord(\'a\')
    | (a `elem` [\'A\'..\'Z\']) = ord(a) - ord(\'A\') 
    | otherwi