@@ -10,10 +10,10 @@ import Control.Monad.IO.Class
1010import Data.Aeson
1111import Data.Text (Text)
1212import GHC.Generics
13−import Math.Probable
1413import Network.Wai
1514import Servant
1615import Servant.JQuery
16+import System.Random
1717
1818import qualified Data.Text as T
1919import qualified Language.Javascript.JQuery as JQ
@@ -26,9 +26,10 @@ data Point = Point
2626instance ToJSON Point
2727
2828randomPoint :: MonadIO m => m Point
29−randomPoint = liftIO . mwc $ Point <$> d <*> d
30−
31− where d = doubleIn (-1, 1)
29+randomPoint = liftIO . getStdRandom $ \g ->
30+ let (rx, g') = randomR (-1, 1) g
31+ (ry, g'') = randomR (-1, 1) g'
32+ in (Point rx ry, g'')
3233
3334data Search a = Search
3435 { query :: Text