Commit 1f052c50 authored by Ben Gamari's avatar Ben Gamari Committed by Ben Gamari

Fix order of PrelRule

Test Plan: Added testcase in D3905.

Reviewers: austin

Subscribers: angerman, rwbarton, thomie

GHC Trac Issues: #14178

Differential Revision: https://phabricator.haskell.org/D3904
parent dd643bcc
......@@ -1423,7 +1423,7 @@ caseRules dflags (App (App (Var f) (Lit l)) v) -- x# `op` v
, Just x <- isLitValue_maybe l
, Just adjust_lit <- adjustDyadicLeft x op
= Just (v, tx_lit_con dflags adjust_lit
, \v -> (App (App (Var f) (Var v)) (Lit l)))
, \v -> (App (App (Var f) (Lit l)) (Var v)))
caseRules dflags (App (Var f) v ) -- op v
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment