Skip to content

C
cloud-orbit
Commit 38242b10 authored by Aggelos Giantsios's avatar Aggelos Giantsios
Browse files
Options

Make the statData parameter used strictly

parent a39d2b4e
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
MasterWorker.hs
View file @ 38242b10
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell,BangPatterns #-}
-- --
-- orbit-int master (controlling orbit computation) -- orbit-int master (controlling orbit computation)
-- --
...@@ -157,7 +157,7 @@ init (localTableSize, idleTimeout, spawnImgComp) = ...@@ -157,7 +157,7 @@ init (localTableSize, idleTimeout, spawnImgComp) =
-- Table: hash table holding vertices -- Table: hash table holding vertices
-- StatData: various counters and timers for gathering statistics -- StatData: various counters and timers for gathering statistics
vertex_server :: ParConf -> Credit -> VTable -> Ct -> Process () 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 let idleTimeout = get_idle_timeout staticMachConf
r <- receiveTimeout idleTimeout [ r <- receiveTimeout idleTimeout [
match $ \("vertex", x, slot, k) -> do 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