@@ -1,12 +1,12 @@
11{-# LANGUAGE GeneralizedNewtypeDeriving #-}
22{-# LANGUAGE OverloadedStrings #-}
33{-# LANGUAGE StandaloneDeriving #-}
4+{-# OPTIONS_GHC -fno-warn-orphans #-}
45module Main
56 ( main
67 ) where
78
89-------------------------------------------------------------------------------
9−import Control.Applicative
1010import Control.DeepSeq
1111import Control.Monad
1212import Criterion.Main
@@ -34,7 +34,7 @@ mkDocIdBenchmark rng = bgroup "mkDocId"
3434mkDocId' :: RNG -> IO DocId
3535mkDocId' rng = do
3636 is <- withRNG rng $ \gen -> replicateM len $ mk gen
37− return . DocId . T.pack . concatMap (flip showHex "") $ is
37+ return . DocId . T.pack . concatMap (`showHex` "") $ is
3838 where
3939 len = 32
4040 mk :: GenIO -> IO Int