1 2 3 4
{-# LANGUAGE Haskell2010 #-} module Bug548 (WrappedArrow(..)) where import Control.Applicative