Fix order of PrelRule
authorBen Gamari <bgamari.foss@gmail.com>
Fri, 1 Sep 2017 14:52:34 +0000 (10:52 -0400)
committerBen Gamari <ben@smart-cactus.org>
Fri, 1 Sep 2017 14:58:11 +0000 (10:58 -0400)
Test Plan: Added testcase in D3905.

Reviewers: austin

Subscribers: angerman, rwbarton, thomie

GHC Trac Issues: #14178

Differential Revision: https://phabricator.haskell.org/D3904

compiler/prelude/PrelRules.hs

index 2dbc5e8..8ee0f82 100644 (file)
@@ -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