git.iko.soy/obelisk
on master help sign in
Wrap obRunExpr in parens

This avoids an issue with precedence in case of obRunExpr using $.

commitb32206b656672bbdc9620ed1177ee41872111e56 authorMatthew Bauer <mjbauer95@gmail.com> dateTue 11 Feb 2020, 15:44 (7 years ago) parent419f5e4
1 file changed+1−1
compare with master
unifiedsplit
lib/command/src/Obelisk/Command/Run.hs+1−1
lib/command/src/Obelisk/Command/Run.hs+1−1
@@ -108,7 +108,7 @@ run profiled = withProjectRoot "." $ \root -> do
108108 , "import Reflex.Profiled" ]
109109 <> obRunImports <>
110110 [ "main :: IO ()"
111− , "main = " <> obRunExpr <> " `finally` writeProfilingData \"" <> profileBaseName <> ".rprof\"" ]
111+ , "main = (" <> obRunExpr <> ") `finally` writeProfilingData \"" <> profileBaseName <> ".rprof\"" ]
112112 -- Sane flags to enable by default, enable time profiling +
113113 -- closure heap profiling.
114114 rtsFlags = [ "+RTS", "-p", "-po" <> profileBaseName, "-hc", "-RTS" ]