From 44b703ba0a73860654e4e1cd177886f15b66e0f7 Mon Sep 17 00:00:00 2001
From: JJ Kim <jj@haeodsa.xyz>
Date: Sun, 18 Dec 2022 23:00:25 +0900
Subject: [PATCH] change unwrap to extract in overMatL' and overMatM'

---
 packages/base/src/Internal/Static.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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' #-}