When a result fails, just give the OneOrMore value directly
No need to turn it into a list until later
commitc08afa0c8715d7750177dc552339aa0ec6359c5a
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateTue 30 Apr 2019, 13:56 (8 years ago)
parent0d2ec56
compiler/src/Reporting/Result.hs+2−2
@@ -30,10 +30,10 @@ newtype Result info warnings error a =
3030 )
3131
3232
33−run :: Result () [w] e a -> ([w], Either [e] a)
33+run :: Result () [w] e a -> ([w], Either (OneOrMore.OneOrMore e) a)
3434run (Result k) =
3535 k () []
36− (\() w e -> (reverse w, Left (OneOrMore.toList e)))
36+ (\() w e -> (reverse w, Left e))
3737 (\() w a -> (reverse w, Right a))
3838
3939