forsyde-shallow 3.4.0.0 → 3.4.0.1
raw patch · 2 files changed
+16/−11 lines, 2 filesdep ~basenew-uploaderPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
Files
forsyde-shallow.cabal view
@@ -1,11 +1,11 @@ name: forsyde-shallow-version: 3.4.0.0-cabal-version: >= 1.8+version: 3.4.0.1+cabal-version: >= 1.10 build-type: Simple license: BSD3 license-file: LICENSE author: ForSyDe Group, KTH/EECS/ELE-copyright: Copyright (c) 2003-2018 ForSyDe Group, KTH/EECS/ELE+copyright: Copyright (c) 2003-2021 ForSyDe Group, KTH/EECS/ELE maintainer: ForSyDe Group <forsyde-dev@eecs.kth.se> homepage: http://forsyde.ict.kth.se/ stability: alpha@@ -22,6 +22,7 @@ , GHC==8.0.2 , GHC==8.2.1 , GHC==8.4.4+ , GHC==8.10.3 -- In order to include all this files with sdist extra-source-files: LICENSE,@@ -33,7 +34,7 @@ location: git://github.com/forsyde/forsyde-shallow Library- build-depends: base>=4 && <6,+ build-depends: base>=4.6 && <6, directory, old-time, process,@@ -71,6 +72,7 @@ other-modules: Paths_forsyde_shallow ghc-options: -Wall -fno-warn-name-shadowing+ default-language: Haskell2010 Test-Suite unit@@ -81,6 +83,7 @@ , forsyde-shallow , hspec >= 2.2.4 ghc-options: -threaded -rtsopts -with-rtsopts=-N+ default-language: Haskell2010 other-modules: Paths_forsyde_shallow @@ -89,6 +92,7 @@ hs-source-dirs: test main-is: TestDocs.hs ghc-options: -threaded -isrc+ default-language: Haskell2010 build-depends: base>=4.6 && <6 , doctest >= 0.8 , forsyde-shallow@@ -99,7 +103,8 @@ type: exitcode-stdio-1.0 hs-source-dirs: test main-is: Props.hs- ghc-options: -threaded + ghc-options: -threaded+ default-language: Haskell2010 build-depends: base>=4.6 && <6 , QuickCheck , forsyde-shallow
src/ForSyDe/Shallow/Utility/Gaussian.hs view
@@ -19,7 +19,7 @@ import ForSyDe.Shallow.MoC.Untimed import ForSyDe.Shallow.Core.Signal -import System.Random+import qualified System.Random -- |To generate an infinite Signal of Gaussian values pGaussianNoise:: Double -- Mean value of the Gaussian noise@@ -33,15 +33,15 @@ gaussianXY _ = error "gaussianXY: unexpected pattern." -- |To get a uniform random variable in the range [0, 1]-uniform :: (Fractional a, RandomGen g, Random a) => +uniform :: (Fractional a, System.Random.RandomGen g, System.Random.Random a) => g -> (a, g)-uniform rGen = randomR (0.0,1.0) rGen+uniform rGen = System.Random.randomR (0.0,1.0) rGen -- |To generate an infinite signal of unit normal random variables, -- with the specified seed pUnitNormXY :: Int -- The seed -> Signal Double -- The infinite ouput signal-pUnitNormXY = mapU 3 unitNormXY . signal . svGenerator . mkStdGen+pUnitNormXY = mapU 3 unitNormXY . signal . svGenerator . System.Random.mkStdGen where unitNormXY [s, v1, v2] = [sqrt(-2 * log(s) / s) * v1, sqrt(-2 * log(s) / s) * v2]@@ -49,7 +49,7 @@ -- |To generate the s, v1, v2 value-svGenerator :: StdGen -> [Double]+svGenerator :: System.Random.StdGen -> [Double] svGenerator s | sVal >=1 = []++ svGenerator newStdG | otherwise = svVal ++ svGenerator newStdG@@ -58,7 +58,7 @@ svVal = fst svGen1 sVal = head svVal newStdG = snd svGen1- svHelper :: StdGen -> ([Double], StdGen)+ svHelper :: System.Random.StdGen -> ([Double], System.Random.StdGen) svHelper stdG = ([s, v1, v2], sNew2) where (u1, sNew1) = uniform stdG