Remove getFinaliser constructor
commite01f38e9a781d5284ef616047da7272bacbd5893
authorAlfredo Di Napoli <alfredo.dinapoli@gmail.com>
dateMon 20 Feb 2017, 12:56 (10 years ago)
parentdc3e8d9
katip/bench/Main.hs+1−2
@@ -4,7 +4,6 @@
44{-# OPTIONS_GHC -fno-warn-orphans #-}
55module Main
66 ( main
7− , getFinaliser
87 ) where
98
109
@@ -94,7 +93,7 @@ setup = do
9493-------------------------------------------------------------------------------
9594deriving instance NFData ThreadIdText
9695
97−newtype Finaliser = F { getFinaliser :: IO () }
96+newtype Finaliser = F (IO ())
9897
9998instance NFData Scribe where
10099 rnf (Scribe _) = ()