hjugement-protocol/benchmarks/Utils.hs

   1 module Utils
   2  ( module Criterion.Main
   3  , module Data.Bool
   4  , Applicative(..)
   5  , Monad(..), forM, join, replicateM, unless, when
   6  , Eq(..)
   7  , Either(..), either, isLeft, isRight
   8  , ($), (.), id, const, flip
   9  , (<$>)
  10  , Int
  11  , IO
  12  , Maybe(..)
  13  , Monoid(..), Semigroup(..)
  14  , Ord(..)
  15  , String
  16  , Text
  17  , Word8
  18  , Num, Fractional(..), Integral(..), Integer, fromIntegral
  19  , Show(..)
  20  , MonadTrans(..)
  21  , ExceptT
  22  , runExcept
  23  , throwE
  24  , StateT
  25  , evalStateT
  26  , mkStdGen
  27  , error
  28  , debug
  29  ) where
  30
  31 import Control.Applicative (Applicative(..))
  32 import Control.Monad
  33 import Control.Monad.Trans.Class
  34 import Control.Monad.Trans.Except
  35 import Control.Monad.Trans.State.Strict
  36 import Criterion.Main
  37 import Data.Bool
  38 import Data.Either (Either(..), either, isLeft, isRight)
  39 import Data.Eq (Eq(..))
  40 import Data.Function
  41 import Data.Functor ((<$>))
  42 import Data.Int (Int)
  43 import Data.Maybe (Maybe(..))
  44 import Data.Monoid (Monoid(..))
  45 import Data.Ord (Ord(..))
  46 import Data.Semigroup (Semigroup(..))
  47 import Data.String (String)
  48 import Data.Text (Text)
  49 import Data.Word (Word8)
  50 import Debug.Trace
  51 import Prelude (Num(..), Fractional(..), Integral(..), Integer, fromIntegral, error)
  52 import System.IO (IO)
  53 import System.Random (mkStdGen)
  54 import Text.Show (Show(..))
  55
  56 debug :: Show a => String -> a -> a
  57 debug msg x = trace (msg<>": "<>show x) x
  58