git.iko.soy/elk
on master help sign in
When a result fails, just give the OneOrMore value directly
c08afa0Evan Czaplicki
compiler/src/Reporting/Result.hs+2−2
compare with master
unifiedsplit
@@ -30,10 +30,10 @@ newtype Result info warnings error a =
30 )
30 )
31
31
32
32
33−run :: Result () [w] e a -> ([w], Either [e] a)
33+run :: Result () [w] e a -> ([w], Either (OneOrMore.OneOrMore e) a)
34run (Result k) =
34run (Result k) =
35 k () []
35 k () []
36− (\() w e -> (reverse w, Left (OneOrMore.toList e)))
36+ (\() w e -> (reverse w, Left e))
37 (\() w a -> (reverse w, Right a))
37 (\() w a -> (reverse w, Right a))
38
38
39
39