testsuite/tests/driver/T10320.hs


1
2
3
4
5
6
7
8

-- | Test file for issue #10320.

module Main (main) where

main :: IO ()
main = print $ map (+1) (map (+1) [1, 2, 3])

{-# RULES "map/map"    forall f g xs.  map f (map g xs) = map (f.g) xs #-}