Fix #1591, use the 'negate' in scope
commitf090fbdfc76a231fc5c9c947798198f00f72c019
authorPhil Freeman <paf31@cantab.net>
dateSat 7 Nov 2015, 15:03 (11 years ago)
parent1ae09f0
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