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  , min
  20  , max
  21  , Show(..)
  22  , MonadTrans(..)
  23  , ExceptT
  24  , runExcept
  25  , throwE
  26  , StateT
  27  , evalStateT
  28  , mkStdGen
  29  , error
  30  , debug
  31  ) where
  32
  33 import Control.Applicative (Applicative(..))
  34 import Control.Monad
  35 import Control.Monad.Trans.Class
  36 import Control.Monad.Trans.Except
  37 import Control.Monad.Trans.State.Strict
  38 import Criterion.Main
  39 import Data.Bool
  40 import Data.Either (Either(..), either, isLeft, isRight)
  41 import Data.Eq (Eq(..))
  42 import Data.Function
  43 import Data.Functor ((<$>))
  44 import Data.Int (Int)
  45 import Data.Maybe (Maybe(..))
  46 import Data.Monoid (Monoid(..))
  47 import Data.Ord (Ord(..))
  48 import Data.Semigroup (Semigroup(..))
  49 import Data.String (String)
  50 import Data.Text (Text)
  51 import Data.Word (Word8)
  52 import Debug.Trace
  53 import Prelude (Num(..), Fractional(..), Integral(..), Integer, undefined, fromIntegral, error)
  54 import System.IO (IO)
  55 import System.Random (mkStdGen)
  56 import Text.Show (Show(..))
  57
  58 debug :: Show a => String -> a -> a
  59 debug msg x = trace (msg<>": "<>show x) x
  60