diff --git a/src/examples/either.elm b/src/examples/either.elm index c24d20038..4f2cf9723 100644 --- a/src/examples/either.elm +++ b/src/examples/either.elm @@ -27,20 +27,20 @@ partition eithers = [] -> ([], []) - Left a :: rest -> + Left leftPayload :: rest -> let (lefts, rights) = partition rest in - (a :: lefts, rights) + (leftPayload :: lefts, rights) - Right b :: rest -> + Right rightPayload :: rest -> let (lefts, rights) = partition rest in - (lefts, b :: rights) + (lefts, rightPayload :: rights) main = - text (toString (partition userIDs)) \ No newline at end of file + text (toString (partition userIDs))