stateWriter 0.2.0 → 0.2.1

raw patch · 3 files changed

+3/−8 lines, 3 filesdep ~base

Dependency ranges changed: base

Files

bench/bench.hs +1/−4
stateWriter.cabal +2/−2
tests/rwscompare.hs +0/−2

bench/bench.hs view

@@ -41,10 +41,7 @@     rnf d = rnf $ D.toList d  main :: IO ()-main = defaultMain $ [ bench "Snoc list"    (nf (RSSS.runRSS (testActions (RSSS.tellElement :: Int -> RSSS.RSS () [Int] Int () )) ()) benchlen)-                     , bench "Snoc seq"     (nf (RSSS.runRSS (testActions (RSSS.tellElement :: Int -> RSSS.RSS () (Seq.Seq Int) Int () )) ()) benchlen)-                     ]-                  ++ mkBench "Seq" Seq.singleton+main = defaultMain $ mkBench "Seq" Seq.singleton                   ++ mkBench "List" (:[])                   ++ mkBench "Vector Primitive" VP.singleton                   ++ mkBench "IntSet" IS.singleton

stateWriter.cabal view

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                stateWriter-version:             0.2.0+version:             0.2.1 synopsis:            A faster variant of the RWS monad transformers. description:         This is a version of the RWS monad transformers that should be much faster than what's found in transformers. The writer in the strict version does not leak memory. license:             BSD3@@ -25,7 +25,7 @@   ghc-prof-options:    -caf-all -auto-all   -- other-modules:          other-extensions:    FlexibleInstances, MultiParamTypeClasses-  build-depends:       base >=4.6 && <4.7, transformers >=0.3 && <0.4, mtl >=2.1 && <2.2+  build-depends:       base >=4.6 && < 4.8, transformers >=0.3 && <0.4, mtl >=2.1 && <2.2   -- hs-source-dirs:         default-language:    Haskell2010

tests/rwscompare.hs view

@@ -70,8 +70,6 @@     describe "Writer part" $ do         it "logs stuff in the right order, with tell" $             property $ \listOfLists -> runRSS (mapM_ tell (listOfLists :: [[Int]])) () () == runRWS (mapM_ tell listOfLists) () ()-        it "logs stuff in the right order, with tellElement" $-            property $ \list -> runRSS (mapM_ tellElement (list :: [Int])) () () == ((), (), list)         it "interprets actions the same" $             property $ \actions -> runRSS (evaluateActions (actions :: Action Int)) 42 12 == runRWS (evaluateActions actions) 42 12