diff --git a/src/Ganeti/DataCollectors/Types.hs b/src/Ganeti/DataCollectors/Types.hs
index 55a84180ff5ae22458f15a97da52d305b5cb8bc2..59c5e8ca23d13e5bd4c7029108fff573dc4e7687 100644
--- a/src/Ganeti/DataCollectors/Types.hs
+++ b/src/Ganeti/DataCollectors/Types.hs
@@ -49,6 +49,7 @@ module Ganeti.DataCollectors.Types
   , getCategoryName
   ) where
 
+import Control.DeepSeq (NFData, rnf, force)
 import Data.Char
 import Data.Ratio
 import qualified Data.Map as Map
@@ -138,6 +139,9 @@ instance JSON DCVersion where
 -- | Type for the value field of the `CollectorMap` below.
 data CollectorData = CPULoadData (Seq.Seq (Integer, [Int]))
 
+instance NFData CollectorData where
+  rnf (CPULoadData x) = rnf x
+
 -- | Type for the map storing the data of the statefull DataCollectors.
 type CollectorMap = Map.Map String CollectorData