{-# LANGUAGE NoBinaryLiterals #-} module TFindLiteralIntCase where caseExpression x = case x + 34 of _ -> "testing if we find a literal in the case statement"