fix bench

scotty-web · Dec 29, 2023 · f646638 · f646638
1 parent 06de9a7
commit f646638
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -6,7 +6,6 @@
 module Main (main) where
 
 import Control.Monad
-import Control.Monad.Trans.Resource (InternalState, withInternalState, runResourceT)
 import Data.Functor.Identity
 import Lucid.Base
 import Lucid.Html5
@@ -20,14 +19,13 @@ import Weigh
 
 main :: IO ()
 main = do
-  runResourceT $ withInternalState $ \istate ->
     mainWith $ do
       setColumns [Case,Allocated,GCs,Live,Check,Max,MaxOS]
       setFormat Markdown
       io "ScottyM Strict" BL.putStr
-        (SS.evalState (runS $ renderBST htmlScotty) (defaultScottyState istate))
+        (SS.evalState (runS $ renderBST htmlScotty) (defaultScottyState))
       io "ScottyM Lazy" BL.putStr
-        (SL.evalState (runScottyLazy $ renderBST htmlScottyLazy) (defaultScottyState istate))
+        (SL.evalState (runScottyLazy $ renderBST htmlScottyLazy) (defaultScottyState))
       io "Identity" BL.putStr
         (runIdentity $ renderBST htmlIdentity)