Merge pull request purescript#1615 from purescript/1591

paf31 · paf31 · commit 3901ae7649f3 · 2015-11-07T17:42:51.000-08:00
Fix purescript#1591, use the 'negate' in scope
diff --git a/src/Language/PureScript/Sugar/Operators.hs b/src/Language/PureScript/Sugar/Operators.hs
@@ -66,7 +66,7 @@ removeSignedLiterals (Module ss coms mn ds exts) = Module ss coms mn (map f' ds)
   where
   (f', _, _) = everywhereOnValues id go id
 
-  go (UnaryMinus val) = App (Var (Qualified (Just (ModuleName [ProperName C.prelude])) (Ident C.negate))) val
+  go (UnaryMinus val) = App (Var (Qualified Nothing (Ident C.negate))) val
   go other = other
 
 rebracketModule :: (Applicative m, MonadError MultipleErrors m) => [[(Qualified Ident, Expr -> Expr -> Expr, Associativity)]] -> Module -> m Module
