Skip to content

Commit f61ef00

Browse files
committed
Updates for library changes
1 parent 1f87eb3 commit f61ef00

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

src/Test/QuickCheck/Arbitrary.purs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,8 @@ import Data.List.NonEmpty (NonEmptyList(..))
3131
import Data.Maybe (Maybe(..), fromJust)
3232
import Data.Newtype (wrap)
3333
import Data.NonEmpty (NonEmpty(..), (:|))
34-
import Data.String.CodeUnits (charAt, fromCharArray, split)
34+
import Data.String (split)
35+
import Data.String.CodeUnits (charAt, fromCharArray)
3536
import Data.String.NonEmpty (NonEmptyString)
3637
import Data.String.NonEmpty.CodeUnits as NES
3738
import Data.Symbol (class IsSymbol, SProxy(..))

src/Test/QuickCheck/Gen.purs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -253,5 +253,5 @@ foreign import float32ToInt32 :: Number -> Int
253253
-- | Perturb a random generator by modifying the current seed
254254
perturbGen :: forall a. Number -> Gen a -> Gen a
255255
perturbGen n gen = Gen do
256-
modify \s -> s { newSeed = lcgPerturb (toNumber (float32ToInt32 n)) s.newSeed }
256+
void $ modify \s -> s { newSeed = lcgPerturb (toNumber (float32ToInt32 n)) s.newSeed }
257257
unGen gen

0 commit comments

Comments
 (0)