git.iko.soy/typeable/servant
on master help sign in
examples: use 'random' instead of 'probable' for GS9
4653744Alp Mestanogullari
servant-examples/getting-started/GS9.hs+5−4
compare with master
unifiedsplit
@@ -10,10 +10,10 @@ import Control.Monad.IO.Class
10import Data.Aeson
10import Data.Aeson
11import Data.Text (Text)
11import Data.Text (Text)
12import GHC.Generics
12import GHC.Generics
13−import Math.Probable
14import Network.Wai
13import Network.Wai
15import Servant
14import Servant
16import Servant.JQuery
15import Servant.JQuery
16+import System.Random
17
17
18import qualified Data.Text as T
18import qualified Data.Text as T
19import qualified Language.Javascript.JQuery as JQ
19import qualified Language.Javascript.JQuery as JQ
@@ -26,9 +26,10 @@ data Point = Point
26instance ToJSON Point
26instance ToJSON Point
27
27
28randomPoint :: MonadIO m => m Point
28randomPoint :: MonadIO m => m Point
29−randomPoint = liftIO . mwc $ Point <$> d <*> d
29+randomPoint = liftIO . getStdRandom $ \g ->
30−
30+ let (rx, g') = randomR (-1, 1) g
31− where d = doubleIn (-1, 1)
31+ (ry, g'') = randomR (-1, 1) g'
32+ in (Point rx ry, g'')
32
33
33data Search a = Search
34data Search a = Search
34 { query :: Text
35 { query :: Text
servant-examples/servant-examples.cabal+1−1
@@ -25,7 +25,7 @@ executable getting-started
25 , http-types
25 , http-types
26 , js-jquery
26 , js-jquery
27 , lucid
27 , lucid
28− , probable
28+ , random
29 , servant
29 , servant
30 , servant-docs
30 , servant-docs
31 , servant-jquery
31 , servant-jquery