Mapping a positive integer to haskell

While @ Sebastian's answer is correct, yes you can

{-# LANGUAGE ViewPatterns #-}
import Prelude hiding (odd)

data Peano = Zero | Succ Peano deriving Show
data PeanoInt = Neg Peano | Pos Peano deriving Show

odd :: PeanoInt -> Bool
odd (Neg Zero) = False
odd (Pos Zero) = False
odd (Neg (Succ (Succ x))) = odd $ Neg x
odd (Pos (Succ (Succ x))) = odd $ Pos x
odd _ = True

zero = Zero
one = Succ zero
two = Succ one

f :: PeanoInt -> String
f (Neg (Succ (Succ Zero))) = "-2 (then we can match all finite sets)"
f (Pos _)                  = "Positives"
f (odd -> True)            = "Odd!"
f x                        = show x

main = do

    print $ f (Neg two)
    print $ f (Pos one)
    print $ odd (Neg one)
    print $ odd (Neg two)
    print $ odd (Pos one)
    print $ odd (Pos two)