Permalink
Browse files

Extend example with labels

  • Loading branch information...
1 parent 7a59122 commit 2cf463e0cf052cbbb133946140258e5aa166f31a @tibbe committed Apr 18, 2012
Showing with 3 additions and 0 deletions.
  1. +3 −0 examples/Basic.hs
View
@@ -7,6 +7,7 @@ module Main where
import Control.Concurrent
import Control.Exception
import qualified System.Remote.Counter as Counter
+import qualified System.Remote.Label as Label
import System.Remote.Monitoring
mean :: Fractional a => [a] -> a
@@ -16,6 +17,8 @@ main :: IO ()
main = do
handle <- forkServer "localhost" 8000
counter <- getCounter "iterations" handle
+ label <- getLabel "args" handle
+ Label.set label "some text string"
let loop n = do
evaluate $ mean [1..n]
threadDelay 2000

0 comments on commit 2cf463e

Please sign in to comment.