mirror of
https://github.com/ilyakooo0/ormolu.git
synced 2024-10-27 11:41:17 +03:00
19 lines
256 B
Haskell
19 lines
256 B
Haskell
{-# RULES
|
|
"map/map" [2]
|
|
map f
|
|
(map g xs) = map
|
|
(f . g)
|
|
xs
|
|
#-}
|
|
|
|
{-# RULES
|
|
"map/map" [1] forall x y z.
|
|
map f
|
|
(map g xs) = map
|
|
(f . g)
|
|
xs
|
|
#-}
|
|
|
|
{-# RULES
|
|
"++" [~1] forall xs ys. xs ++ ys = augment (\c n -> foldr c n xs) ys
|
|
#-} |