Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Extend example with labels

  • Loading branch information...
commit 2cf463e0cf052cbbb133946140258e5aa166f31a 1 parent 7a59122
Johan Tibell authored
Showing with 3 additions and 0 deletions.
  1. +3 −0  examples/Basic.hs
3  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
Please sign in to comment.
Something went wrong with that request. Please try again.