]> Git — Sourcephile - majurity.git/blob - hjugement-protocol/benchmarks/Utils.hs
protocol: polish doc
[majurity.git] / 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