Commit 38242b10 authored by Aggelos Giantsios's avatar Aggelos Giantsios

Make the statData parameter used strictly

parent a39d2b4e
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TemplateHaskell,BangPatterns #-}
--
-- orbit-int master (controlling orbit computation)
--
......@@ -157,7 +157,7 @@ init (localTableSize, idleTimeout, spawnImgComp) =
-- Table: hash table holding vertices
-- StatData: various counters and timers for gathering statistics
vertex_server :: ParConf -> Credit -> VTable -> Ct -> Process ()
vertex_server staticMachConf crdt table statData = do
vertex_server staticMachConf crdt table !statData = do
let idleTimeout = get_idle_timeout staticMachConf
r <- receiveTimeout idleTimeout [
match $ \("vertex", x, slot, k) -> do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment