5 lines
183 B
Haskell
5 lines
183 B
Haskell
{-# 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)
|