{-# LANGUAGE Safe #-}
module Test.QuickCheck.Roundtrip (roundtrips) where

roundtrips :: Eq t1 => (t2 -> t1) -> (t1 -> t2) -> t1 -> Bool
roundtrips back forth x = x == back (forth x)