Remove redundant import

lehins · Oct 28, 2020 · 7934cee · 7934cee
1 parent c0424cc
commit 7934cee
Show file tree

Hide file tree

Showing 8 changed files with 10 additions and 14 deletions.
diff --git a/pvar/src/Data/Prim/PVar.hs b/pvar/src/Data/Prim/PVar.hs
@@ -81,7 +81,6 @@ module Data.Prim.PVar
   , module Data.Prim
   ) where
 
-import Control.Monad.ST (ST, runST)
 import Control.Prim.Monad
 import Data.Prim
 import Data.Prim.Atomic

diff --git a/pvar/tests/Test/Prim/PVarSpec.hs b/pvar/tests/Test/Prim/PVarSpec.hs
@@ -232,9 +232,6 @@ specAtomic ::
      , Num e
      , AtomicCount e
      , AtomicBits e
-     , CoArbitrary e
-     , Arbitrary e
-     , Function e
      )
   => Gen e
   -> Spec
@@ -327,10 +324,11 @@ specAtomic gen = do
           length l `shouldSatisfy` (\len -> len == lenr || len == lenr + 1)
       prop "atomicModifyPVar" $
         forAll gen $ \z ->
-          forAllIO (arbitrary :: Gen (Fun (e, Int) e, [Int])) $ \(_f, xs) -> do
+          forAllIO (listOf gen) $ \xs -> do
             zvar <- newPVar $ Atom (Nothing, z)
-            let --g = applyFun2 f -- TODO: figure out what's the issue with using function here
-                g y x = y `xor` fromIntegral x
+            -- non-associative function that will produce different results depending on
+            -- the order of application to the list of xs
+            let g = (-)
             mxs <-
               mapConcurrently
                 (\x ->

diff --git a/stack-lts-10.yaml b/stack-lts-10.yaml
@@ -10,6 +10,6 @@ extra-deps:
 - validity-0.9.0.3@sha256:ee12ebe4c09ecd52c1e36604da5ab00c17d4fc815a4d18e73f7fb2f9ba449f46,2612
 - genvalidity-0.9.1.0@sha256:46cc1deca49f5a9b16034b5a56732c821835e34865108a61fb821e6e7c04d4dd,2892
 - github: lehins/primal
-  commit: 390e1be1d53d98db3892e6851c9cf254f195e81e
+  commit: 33b428e37cc820498b75149d2718d561c7f6b9d4
   subdirs:
     - primal
diff --git a/stack-lts-12.yaml b/stack-lts-12.yaml
@@ -10,6 +10,6 @@ extra-deps:
 - validity-0.9.0.3@sha256:ee12ebe4c09ecd52c1e36604da5ab00c17d4fc815a4d18e73f7fb2f9ba449f46,2612
 - genvalidity-0.10.0.1@sha256:00b12168de64a6346588b0d69025d660fd6c92c4a47a6b706cabba96c65864fa,2833
 - github: lehins/primal
-  commit: 390e1be1d53d98db3892e6851c9cf254f195e81e
+  commit: 33b428e37cc820498b75149d2718d561c7f6b9d4
   subdirs:
     - primal
diff --git a/stack-lts-14.yaml b/stack-lts-14.yaml
@@ -2,8 +2,7 @@ resolver: lts-14.27
 packages:
 - pvar
 extra-deps:
-#- ../primal/primal
 - github: lehins/primal
-  commit: 390e1be1d53d98db3892e6851c9cf254f195e81e
+  commit: 33b428e37cc820498b75149d2718d561c7f6b9d4
   subdirs:
     - primal
diff --git a/stack-lts-3.yaml b/stack-lts-3.yaml
@@ -21,6 +21,6 @@ extra-deps:
 - unliftio-core-0.2.0.1@sha256:9b3e44ea9aacacbfc35b3b54015af450091916ac3618a41868ebf6546977659a,1082
 # - criterion-1.4.0.0
 - github: lehins/primal
-  commit: 390e1be1d53d98db3892e6851c9cf254f195e81e
+  commit: 33b428e37cc820498b75149d2718d561c7f6b9d4
   subdirs:
     - primal
diff --git a/stack-lts-7.yaml b/stack-lts-7.yaml
@@ -13,6 +13,6 @@ extra-deps:
 - hspec-expectations-0.8.2@sha256:e2db24881baadc2d9d23b03cb629e80dcbda89a6b04ace9adb5f4d02ef8b31aa,1594
 - quickcheck-io-0.2.0@sha256:7bf0b68fb90873825eb2e5e958c1b76126dcf984debb998e81673e6d837e0b2d,1133
 - github: lehins/primal
-  commit: 390e1be1d53d98db3892e6851c9cf254f195e81e
+  commit: 33b428e37cc820498b75149d2718d561c7f6b9d4
   subdirs:
     - primal
diff --git a/stack.yaml b/stack.yaml
@@ -4,6 +4,6 @@ packages:
 extra-deps:
 #- ../primal/primal
 - github: lehins/primal
-  commit: 390e1be1d53d98db3892e6851c9cf254f195e81e
+  commit: 33b428e37cc820498b75149d2718d561c7f6b9d4
   subdirs:
     - primal