git.iko.soy/typeable/katip
on master help sign in
Remove getFinaliser constructor
e01f38eAlfredo Di Napoli
katip/bench/Main.hs+1−2
compare with master
unifiedsplit
@@ -4,7 +4,6 @@
4{-# OPTIONS_GHC -fno-warn-orphans #-}
4{-# OPTIONS_GHC -fno-warn-orphans #-}
5module Main
5module Main
6 ( main
6 ( main
7− , getFinaliser
8 ) where
7 ) where
9
8
10
9
@@ -94,7 +93,7 @@ setup = do
94-------------------------------------------------------------------------------
93-------------------------------------------------------------------------------
95deriving instance NFData ThreadIdText
94deriving instance NFData ThreadIdText
96
95
97−newtype Finaliser = F { getFinaliser :: IO () }
96+newtype Finaliser = F (IO ())
98
97
99instance NFData Scribe where
98instance NFData Scribe where
100 rnf (Scribe _) = ()
99 rnf (Scribe _) = ()