Hello, and thanks for the reply What about this instance FromJSON CGid where parseJSON x = CGid <$> (parseJSON x :: Parser Word32) {-# INLINE parseJSON #-} Do you think that it deal with all the problem you are trying to prevent ? Cheers Fred