Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed to build against `cassava-0.3.0.0`. Fixes #34

`cassava-0.3.0.0` changed `encode` to accept a list instead of a vector.  This
patch changes `Criterion.IO.Printf` to use the new `encode`, and also sets
a lower bound of `cassava-0.3.0.0`.
  • Loading branch information...
commit 4f3b44c1a1a66be359d0bdaec0d3241cf78a259f 1 parent d401097
@Gabriel439 Gabriel439 authored
Showing with 2 additions and 3 deletions.
  1. +1 −2  Criterion/IO/Printf.hs
  2. +1 −1  criterion.cabal
View
3  Criterion/IO/Printf.hs
@@ -29,7 +29,6 @@ import System.IO (Handle, stderr, stdout)
import Text.Printf (PrintfArg)
import qualified Data.ByteString.Lazy as B
import qualified Data.Csv as Csv
-import qualified Data.Vector.Generic as G
import qualified Text.Printf (HPrintfType, hPrintf)
-- First item is the action to print now, given all the arguments
@@ -99,5 +98,5 @@ writeCsv :: Csv.ToRecord a => a -> Criterion ()
writeCsv val = do
sumOpt <- getConfigItem (getLast . cfgSummaryFile)
case sumOpt of
- Just fn -> liftIO . B.appendFile fn . Csv.encode . G.singleton $ val
+ Just fn -> liftIO . B.appendFile fn . Csv.encode $ [val]
Nothing -> return ()
View
2  criterion.cabal
@@ -69,7 +69,7 @@ library
base < 5,
binary >= 0.6.3.0,
bytestring >= 0.9 && < 1.0,
- cassava,
+ cassava >= 0.3.0.0,
containers,
deepseq >= 1.1.0.0,
directory,
Please sign in to comment.
Something went wrong with that request. Please try again.