diff options
Diffstat (limited to 'Shard.hs')
-rw-r--r-- | Shard.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -19,6 +19,7 @@ import qualified Raaz.Hash.Sha256 as Raaz import qualified Data.Text as T import qualified Data.Text.Encoding as E import Data.Monoid +import Control.DeepSeq data ShardIdents = ShardIdents { getIdents :: [StorableObjectIdent] @@ -26,6 +27,9 @@ data ShardIdents = ShardIdents , identsBruteForceCalc :: CostCalc BruteForceOp UnknownName } +instance NFData ShardIdents where + rnf = rnf . getIdents + instance HasCreationCost ShardIdents where getCreationCost = identsCreationCost |