recover-rtti-0.1.0.0: tests/Test/RecoverRTTI/Orphans.hs

module Test.RecoverRTTI.Orphans () where

import Debug.RecoverRTTI

-- | Degenerate 'Eq' instance for functions that always says 'True'
--
-- When we compare values up to the coercion returned by 'reclassify', we need
-- an 'Eq' instance. We can't compare functions in any meaningful way though,
-- and so we just return 'True' here no matter what.
--
-- This is an orphan defined in the test suite only, so that users of the
-- library don't have acccess to this (misleading) instance.
instance Eq SomeFun where
  _ == _ = True