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}