Shortcut a test in exprIsOk
authorDavid Feuer <david.feuer@gmail.com>
Tue, 14 Mar 2017 20:43:37 +0000 (16:43 -0400)
committerDavid Feuer <David.Feuer@gmail.com>
Tue, 14 Mar 2017 20:43:39 +0000 (16:43 -0400)
commitd357f526582e3c4cd4fbda5d73695fc81121b69a
treee395214e39590e66376141887e22828a902efd6c
parente0c433c81182c934ee4c4cc5c6cf25a1b6fb8d83
Shortcut a test in exprIsOk

`exprIsOk` didn't shortcut properly when checking `case` (it used
`foldl` inappropriately). Fix that.

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3343
compiler/coreSyn/CoreUtils.hs