Commits

Aleksey Khudyakov committed 9798822

Use .==.

Comments (0)

Files changed (1)

Test/QuickCheck/Property/Functor.hs

 
 -- | @fmap id = id@
 prop_FunctorId :: Functor f => T (f a) -> f a -> Equal (f a)
-prop_FunctorId T f = f `Equal` fmap id f
+prop_FunctorId T f = f .==. fmap id f
 
 -- | It's not possible to generate arbitrary functions. Therefore they
 --   are passed as arguments. 
                     -> T (f a)
                     -> f a
                     -> Equal (f c)
-prop_FunctorCompose f g T x = (fmap g $ fmap f $ x) `Equal` (fmap (g . f) x)
+prop_FunctorCompose f g T x = (fmap g $ fmap f $ x) .==. (fmap (g . f) x)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.