Skip to content

Commit

Permalink
changed size test name
Browse files Browse the repository at this point in the history
  • Loading branch information
tittoassini committed Apr 14, 2017
1 parent 1548161 commit 7b18804
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -252,7 +252,7 @@ sizes :: (Typeable t, NFData t, B.Binary t, F.Flat t, Serialise t,C.Serialize t,
sizes (name,obj) = do
ss <- mapM (\(n,s,_) -> (\ss -> (n,fromIntegral . BS.length $ ss)) <$> s obj) pkgs
print ss
addMeasures workDir ("serialisation (bytes)/"++name) ss
addMeasures workDir ("size (bytes)/"++name) ss

benchs :: (Eq a, Typeable a, NFData a, B.Binary a, F.Flat a, Serialise a,C.Serialize a, S.Store a) => (String, a) -> [Benchmark]
benchs (name,obj) =
Expand Down

0 comments on commit 7b18804

Please sign in to comment.