From 46537447066bc43288f61588d1966cfc7eb71ffe Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alpmestan@gmail.com>
Date: Sun, 10 May 2015 12:20:02 +0200
Subject: [PATCH] examples: use 'random' instead of 'probable' for GS9

---
 servant-examples/getting-started/GS9.hs | 9 +++++----
 servant-examples/servant-examples.cabal | 2 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/servant-examples/getting-started/GS9.hs b/servant-examples/getting-started/GS9.hs
index 23b65514..382dd068 100644
--- a/servant-examples/getting-started/GS9.hs
+++ b/servant-examples/getting-started/GS9.hs
@@ -10,10 +10,10 @@ import Control.Monad.IO.Class
 import Data.Aeson
 import Data.Text (Text)
 import GHC.Generics
-import Math.Probable
 import Network.Wai
 import Servant
 import Servant.JQuery
+import System.Random
 
 import qualified Data.Text                  as T
 import qualified Language.Javascript.JQuery as JQ
@@ -26,9 +26,10 @@ data Point = Point
 instance ToJSON Point
 
 randomPoint :: MonadIO m => m Point
-randomPoint = liftIO . mwc $ Point <$> d <*> d
-  
-  where d = doubleIn (-1, 1)
+randomPoint = liftIO . getStdRandom $ \g ->
+  let (rx, g')  = randomR (-1, 1) g
+      (ry, g'') = randomR (-1, 1) g'
+  in (Point rx ry, g'')
 
 data Search a = Search
   { query   :: Text
diff --git a/servant-examples/servant-examples.cabal b/servant-examples/servant-examples.cabal
index a5faa08b..30db3497 100644
--- a/servant-examples/servant-examples.cabal
+++ b/servant-examples/servant-examples.cabal
@@ -25,7 +25,7 @@ executable getting-started
     , http-types
     , js-jquery
     , lucid
-    , probable
+    , random
     , servant
     , servant-docs
     , servant-jquery