module Numeric.LAPACK.Wrapper where -- cf. Data.Bifunctor.Flip newtype Flip f b a = Flip {forall (f :: * -> * -> *) b a. Flip f b a -> f a b getFlip :: f a b}