[Haskell-cafe] hugs, ghc portability

Hi! I have following code: import Data.Bits xcomp :: Int -> Int -> Int xcomp a m = (xor a (complement m)) which compiles fine under GHC. However hugs does not like it, since they intentionally did not do: --instance Bits Int How can I resolve this to have this code work under GHC and hugs? Sincerely, Vadim -- "La perfection est atteinte non quand il ne reste rien a ajouter, mais quand il ne reste rien a enlever." (Antoine de Saint-Exupery)