never executed always true always false

    1 module AST.Helpers where
    2 
    3 import qualified Data.Char as Char
    4 
    5 
    6 isOp :: String -> Bool
    7 isOp name =
    8   all isSymbol name
    9 
   10 
   11 isSymbol :: Char -> Bool
   12 isSymbol c =
   13   Char.isSymbol c || elem c ("+-/*=.$<>:&|^?%#@~!" :: String)