diff --git a/packages/base/src/Internal/Static.hs b/packages/base/src/Internal/Static.hs index 019a060b..37556fe9 100644 --- a/packages/base/src/Internal/Static.hs +++ b/packages/base/src/Internal/Static.hs @@ -571,12 +571,12 @@ instance KnownNat n => Disp (C n) overMatL' :: (KnownNat m, KnownNat n) => (LA.Matrix ℝ -> LA.Matrix ℝ) -> L m n -> L m n -overMatL' f = mkL . f . unwrap +overMatL' f = mkL . f . extract {-# INLINE overMatL' #-} overMatM' :: (KnownNat m, KnownNat n) => (LA.Matrix ℂ -> LA.Matrix ℂ) -> M m n -> M m n -overMatM' f = mkM . f . unwrap +overMatM' f = mkM . f . extract {-# INLINE overMatM' #-}