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