apply-refact-0.1.0.0: tests/examples/Default60.hs

instance Arrow (->) where first f = f *** id