lambdabot-novelty-plugins 5.3.0.2 → 5.3.1

raw patch · 3 files changed

+13/−7 lines, 3 filesdep +randomdep ~random-funew-uploaderPVP ok

version bump matches the API change (PVP)

Dependencies added: random

Dependency ranges changed: random-fu

API changes (from Hackage documentation)

Files

• lambdabot-novelty-plugins.cabal +4/−3
• src/Lambdabot/Plugin/Novelty/Dice.hs +2/−2
• src/Lambdabot/Plugin/Novelty/Numberwang.hs +7/−2

@@ -1,5 +1,5 @@ name:                   lambdabot-novelty-plugins-version:                5.3.0.2+version:                5.3.1  license:                GPL license-file:           LICENSE@@ -36,7 +36,7 @@  build-type:             Simple cabal-version:          >= 1.10-tested-with:            GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.4, GHC == 8.10.4+tested-with:            GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.4, GHC == 8.10.4, GHC == 9.0.2, GHC == 9.2.4  source-repository head   type:                 git@@ -71,7 +71,8 @@                         lambdabot-core          >= 5.3 && < 5.4,                         misfortune              >= 0.1,                         process                 >= 1.1,-                        random-fu               >= 0.2.6.2,+                        random                  >= 1.2,+                        random-fu               >= 0.3.0.0,                         regex-tdfa              >= 1.1,                          -- runtime dependencies

@@ -32,8 +32,8 @@         Left err    -> if printErrs             then say (trimError err)             else return ()-        Right str   -> +        Right str   ->             say (limitStr 75 (user ++ ": " ++ str))-    +     where         trimError = concat . intersperse ": " . tail . lines . show

@@ -7,7 +7,9 @@ import Data.Random import Data.Random.Distribution.Poisson import Lambdabot.Plugin+import Lambdabot.Util import Numeric+import System.Random.Stateful (newIOGenM, newStdGen)   data NumberwangState = State@@ -23,7 +25,9 @@  numberwangPlugin :: Module NumberwangState numberwangPlugin = newModule-    { moduleDefState = sample (State <$> cmdDist <*> conDist)+    { moduleDefState = do+        g <- newIOGenM =<< newStdGen+        sampleFrom g (State <$> cmdDist <*> conDist)     , moduleCmds = return         [ (command "numberwang")             { help = say "@numberwang <number>: Determines if it is Numberwang."@@ -61,7 +65,8 @@ checkNumberwang cmd l = withState cmd $ \ n setN nDist -> do     if n <= l         then do-            setN =<< lb (sample nDist)+            g <- newIOGenM =<< newStdGen+            setN =<< sampleFrom g nDist             return True         else do             setN (n - l)