Cesar-Cipher in Haskell

cesar.hs

module CesarCipher where

import Data.Char

wrapMin = 97
wrapMax = 122

shifty x
      | x > wrapMax = x - wrapMax + wrapMin
      | otherwise = x

encrypt :: Int -> String -> String
encrypt shift message = map chr $ map shifty $ map (+shift) (map ord message) 

decrypt :: Int -> String -> String
decrypt shift message = map chr $ map ((shift)-) (map ord message)