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