Yup. This is straight cut from Control.Category module:

  instance Category (->) where
      id = Prelude.id
      (.) = (Prelude..)