Merge pull request #1615 from purescript/1591
Fix #1591, use the 'negate' in scope
commit3901ae7649f30861df72a8f0dfbabc4e4849fb80
authorPhil Freeman <paf31@cantab.net>
dateSat 7 Nov 2015, 17:42 (11 years ago)
parent7106669f090fbd
src/Language/PureScript/Sugar/Operators.hs+1−1
@@ -66,7 +66,7 @@ removeSignedLiterals (Module ss coms mn ds exts) = Module ss coms mn (map f' ds)
6666 where
6767 (f', _, _) = everywhereOnValues id go id
6868
69− go (UnaryMinus val) = App (Var (Qualified (Just (ModuleName [ProperName C.prelude])) (Ident C.negate))) val
69+ go (UnaryMinus val) = App (Var (Qualified Nothing (Ident C.negate))) val
7070 go other = other
7171
7272rebracketModule :: (Applicative m, MonadError MultipleErrors m) => [[(Qualified Ident, Expr -> Expr -> Expr, Associativity)]] -> Module -> m Module