Major item refactor, still broken

2025-08-24 19:34:09 +01:00
parent 22b4be440a
commit 94f6d5c630
62 changed files with 820 additions and 805 deletions
@@ -19,6 +19,12 @@ newtype NewIntMap a b = NIntMap { _unNIntMap :: IM.IntMap b}
    deriving newtype (Monoid,Semigroup)
    deriving (Eq,Ord,Show,Read)

+--instance Ixed (NewIntMap (NewInt a)) where
+--    type Index (NewIntMap (NewInt a)) = NewInt a
+--    type Index (NewIntMap (NewInt a)) = NewInt a
+--    ix :: (NewInt a) -> IndexedTraversal' (NewIntMap (NewInt a))
+--    ix (NInt k) (NewIntMap m) = NIntMap <$> ix k m
+
 makeLenses ''NewInt
 makeLenses ''NewIntMap
 deriveJSON defaultOptions ''NewInt