facebook/Haxl
1
1
Fork 0
mirror of https://github.com/facebook/Haxl.git synced 2024-12-23 16:53:02 +03:00
Code Issues Projects Releases Wiki Activity

add show instances for core types

Browse Source 
Summary: add show instances for core types

Reviewed By: JonCoens

Differential Revision: D3613250

fbshipit-source-id: aa3bacdbb938666352859078ccf93fc24f3e8652
This commit is contained in:
Kubo Kovac 2016-07-25 15:39:39 -07:00 committed by Facebook Github Bot 4
parent 3cc0b3e054
commit 10623dc6ee
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Haxl/Core/Types.hs
View File

@ -155,7 +155,7 @@ type Round = Int
-- | Stats that we collect along the way.
newtype Stats = Stats [RoundStats]
deriving ToJSON
deriving (Show, ToJSON)
-- | Pretty-print Stats.
ppStats :: Stats -> String
@ -183,6 +183,7 @@ data RoundStats
{ fetchReq :: String
, fetchStack :: [String]
}
deriving (Show)
-- | Pretty-print RoundStats.
ppRoundStats :: RoundStats -> String
@ -209,7 +210,7 @@ data DataSourceRoundStats = DataSourceRoundStats
, dataSourceTime :: Maybe Microseconds
, dataSourceFailures :: Maybe Int
, dataSourceAllocation :: Maybe Int
}
} deriving (Show)
-- | Pretty-print DataSourceRoundStats
ppDataSourceRoundStats :: DataSourceRoundStats -> String