rhi/bytebuild
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Resolve collision of replicate in test suite

Browse source
This commit is contained in:
Andrew Martin 2020-07-29 14:42:40 -04:00
parent 7a8c57579e
commit 04ab7f046b
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
CHANGELOG.md
View file

@ -5,6 +5,10 @@ Note: Prior to version 0.3.4.0, this library was named
`small-bytearray-builder` is now just a compatibility shim `small-bytearray-builder` is now just a compatibility shim
to ease the migration process. to ease the migration process.
## 0.3.6.1 -- 2020-??-??
* Fix build error in test suite.
## 0.3.6.0 -- 2020-06-30 ## 0.3.6.0 -- 2020-06-30
* Add `replicate`. * Add `replicate`.

5
test/Main.hs
View file

@ -5,6 +5,8 @@
{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
import Prelude hiding (replicate)
import Control.Applicative (liftA2) import Control.Applicative (liftA2)
import Control.Monad.ST (runST) import Control.Monad.ST (runST)
import Data.Bytes.Builder import Data.Bytes.Builder
@ -35,6 +37,7 @@ import qualified Data.Primitive as PM
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Encoding as TE import qualified Data.Text.Encoding as TE
import qualified GHC.Exts as Exts import qualified GHC.Exts as Exts
import qualified Prelude
import qualified Test.Tasty.HUnit as THU import qualified Test.Tasty.HUnit as THU
import qualified Test.Tasty.QuickCheck as TQC import qualified Test.Tasty.QuickCheck as TQC
@ -321,7 +324,7 @@ instance Arbitrary Word256 where
zeroPadL :: Int -> String -> String zeroPadL :: Int -> String -> String
zeroPadL n s zeroPadL n s
| length s < n = replicate (n - length s) '0' ++ s | length s < n = Prelude.replicate (n - length s) '0' ++ s
| otherwise = s | otherwise = s
naiveLeb128 :: Natural -> ByteArray naiveLeb128 :: Natural -> ByteArray