@@ -108,7 +108,7 @@ run profiled = withProjectRoot "." $ \root -> do
108 , "import Reflex.Profiled" ]
108 , "import Reflex.Profiled" ]
109 <> obRunImports <>
109 <> obRunImports <>
110 [ "main :: IO ()"
110 [ "main :: IO ()"
111− , "main = " <> obRunExpr <> " `finally` writeProfilingData \"" <> profileBaseName <> ".rprof\"" ]
111+ , "main = (" <> obRunExpr <> ") `finally` writeProfilingData \"" <> profileBaseName <> ".rprof\"" ]
112 -- Sane flags to enable by default, enable time profiling +
112 -- Sane flags to enable by default, enable time profiling +
113 -- closure heap profiling.
113 -- closure heap profiling.
114 rtsFlags = [ "+RTS", "-p", "-po" <> profileBaseName, "-hc", "-RTS" ]
114 rtsFlags = [ "+RTS", "-p", "-po" <> profileBaseName, "-hc", "-RTS" ]