Skip to content

Commit

Permalink
Oh, there is jormungandr as well
Browse files Browse the repository at this point in the history
  • Loading branch information
rvl committed Jul 1, 2020
1 parent 4fc212f commit da4f2ea
Showing 1 changed file with 2 additions and 12 deletions.
14 changes: 2 additions & 12 deletions lib/jormungandr/test/bench/Latency.hs
Expand Up @@ -26,7 +26,7 @@ import Cardano.BM.Data.LogItem
import Cardano.BM.Data.Severity
( Severity (..) )
import Cardano.BM.Data.Tracer
( ToObject (..), contramap )
( contramap )
import Cardano.BM.Setup
( setupTrace_, shutdown )
import Cardano.BM.Trace
Expand Down Expand Up @@ -84,7 +84,7 @@ import Control.Monad
import Control.Monad.STM
( atomically )
import Data.Aeson
( FromJSON (..), ToJSON (..), Value )
( Value )
import Data.Aeson.QQ
( aesonQQ )
import Data.Generics.Internal.VL.Lens
Expand All @@ -95,8 +95,6 @@ import Data.Proxy
( Proxy (..) )
import Data.Text
( Text )
import Data.Text.Class
( toText )
import Data.Time
( NominalDiffTime )
import Data.Time.Clock
Expand Down Expand Up @@ -497,11 +495,3 @@ benchWithServer tracers action = withConfig $ \jmCfg -> do
, _target = Proxy
}
throwIO $ ProcessHasExited "Server has unexpectedly exited" res

instance ToJSON ApiLog where
toJSON = toJSON . toText

instance FromJSON ApiLog where
parseJSON _ = fail "FromJSON ApiLog stub"

instance ToObject ApiLog

0 comments on commit da4f2ea

Please sign in to comment.