Use NewIntMap InvInt for crInv

src/NewInt.hs

@@ -8,7 +8,7 @@
 --{-# LANGUAGE StandaloneDeriving #-}
 module NewInt where
 
---import qualified Data.IntSet as IS
+import qualified Data.IntSet as IS
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Aeson
@@ -17,8 +17,11 @@ import Data.Aeson.TH
 newtype NewInt a = NInt { _unNInt :: Int}
     deriving newtype (Eq,Ord,Show,Num,Read,Integral,Real,Enum)
 
+newtype NewIntSet a = NIntSet { _unNIntSet :: IS.IntSet}
+    deriving newtype (Eq,Ord,Show,Read)
+
 newtype NewIntMap a b = NIntMap { _unNIntMap :: IM.IntMap b}
-    deriving newtype (Monoid,Semigroup)
+    deriving newtype (Foldable,Functor,Monoid,Semigroup)
     deriving (Eq,Ord,Show,Read)
 
 type instance Index (NewIntMap a b) = NewInt a