register & label newtypes

2026-08-28 11:39:37 -06:00
parent 9cb169f9b8
commit 5ccb3f3e1a
4 changed files with 58 additions and 40 deletions
@@ -19,6 +19,7 @@ module Gyehoek.Prelude
  , (>>>)
  , (>=>)
  , (<=<)
+  , wrappedIso
  ) where

 import Control.Lens hiding (List, (:<))
@@ -40,4 +41,5 @@ import Data.List.NonEmpty (NonEmpty((:|)))
 import Numeric.Natural (Natural)
 import Control.Category ((>>>))
 import Control.Monad
+import Data.Generics.Wrapped (Wrapped(..))