Unpack fields of AlgoState

src/MA/Algorithm/Types.hs

@@ -24,12 +24,12 @@ import           Data.RefinablePartition        ( RefinablePartition )
 import           MA.Coalgebra.RefinementTypes
 
 data AlgoState s h = AlgoState
-  { toSub :: MVector s [EdgeRef]
-  , lastW :: MVector s (STRef s (Weight h))
-  , encoding :: Encoding (Label h) (H1 h)
-  , pred :: Vector [EdgeRef]
-  , partition :: RefinablePartition s
-  , h3Cache :: MVector s (H3 h)
+  { toSub :: {-# UNPACK #-} (MVector s [EdgeRef])
+  , lastW :: {-# UNPACK #-} (MVector s (STRef s (Weight h)))
+  , encoding :: {-# UNPACK #-} (Encoding (Label h) (H1 h))
+  , pred :: {-# UNPACK #-} (Vector [EdgeRef])
+  , partition :: {-# UNPACK #-} (RefinablePartition s)
+  , h3Cache :: {-# UNPACK #-} (MVector s (H3 h))
   }
 
 makeLensesFor