From 027d38b2c20f630a3942df34d34fb73de51b70bc Mon Sep 17 00:00:00 2001
From: Johan Tibell <johan.tibell@gmail.com>
Date: Wed, 15 Oct 2014 09:09:35 +0200
Subject: [PATCH] Fix Basic example to compile after the package split

Fixes #31.
---
 examples/Basic.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/examples/Basic.hs b/examples/Basic.hs
index 2ff5f27..17aee19 100644
--- a/examples/Basic.hs
+++ b/examples/Basic.hs
@@ -8,9 +8,9 @@ import Control.Concurrent
 import Control.Exception
 import Data.List
 import Data.Time.Clock.POSIX (getPOSIXTime)
-import qualified System.Remote.Event as Event
-import qualified System.Remote.Counter as Counter
-import qualified System.Remote.Label as Label
+import qualified System.Metrics.Distribution as Distribution
+import qualified System.Metrics.Counter as Counter
+import qualified System.Metrics.Label as Label
 import System.Remote.Monitoring
 
 -- 'sum' is using a non-strict lazy fold and will blow the stack.
@@ -25,11 +25,11 @@ main = do
     handle <- forkServer "localhost" 8000
     counter <- getCounter "iterations" handle
     label <- getLabel "args" handle
-    event <- getEvent "runtime" handle
+    event <- getDistribution "runtime" handle
     Label.set label "some text string"
     let loop n = do
             t <- timed $ evaluate $ mean [1..n]
-            Event.add event t
+            Distribution.add event t
             threadDelay 2000
             Counter.inc counter
             loop n