From fa32dea80c5f7287960f81054cdd2f55cfb525e4 Mon Sep 17 00:00:00 2001
From: Hans-Peter Deifel <hpd@hpdeifel.de>
Date: Wed, 7 Nov 2018 20:46:30 +0100
Subject: [PATCH] Unpack fields of AlgoState
---
src/MA/Algorithm/Types.hs | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/MA/Algorithm/Types.hs b/src/MA/Algorithm/Types.hs
index 1913272..f7c49bb 100644
--- a/src/MA/Algorithm/Types.hs
+++ b/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
--
GitLab