git.iko.soy/elk
on master help sign in
Remove perf TODO that does not seem to make any difference
541fa5dEvan Czaplicki
src/Reporting/Result.hs−4
compare with master
unifiedsplit
@@ -11,9 +11,6 @@ module Reporting.Result
11 where
11 where
12
12
13
13
14−-- TODO try adding INLINE to warn, throw, (>>=), etc.
15−
16−
17import qualified Data.OneOrMore as OneOrMore
14import qualified Data.OneOrMore as OneOrMore
18import qualified Reporting.Warning as Warning
15import qualified Reporting.Warning as Warning
19
16
@@ -44,7 +41,6 @@ run (Result k) =
44-- HELPERS
41-- HELPERS
45
42
46
43
47−{-# INLINE ok #-}
48ok :: a -> Result i w e a
44ok :: a -> Result i w e a
49ok a =
45ok a =
50 Result $ \i w _ good ->
46 Result $ \i w _ good ->