git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
#114
commit876cfcda93d0e8cfecb99f57d29e3e3cb9d6fd11 authorPhil Freeman <paf31@cantab.net> dateTue 21 Jan 2014, 21:01 (13 years ago) parentd95f52f
3 files changed+15−4
compare with golang
unifiedsplit
examples/passing/RedefinedFixity.purs+14 purescript.cabal+1−1 src/Language/PureScript/Sugar/Operators.hs−3
examples/passing/RedefinedFixity.pursnew file+14
@@ -0,0 +1,14 @@
1+module M1 where
2+
3+($) f a = f a
4+
5+infixr 1000 $
6+
7+module M2 where
8+
9+import M1
10+
11+module M3 where
12+
13+import M1
14+import M2
purescript.cabal+1−1
@@ -1,5 +1,5 @@
11name: purescript
2−version: 0.3.1
2+version: 0.3.2
33cabal-version: >=1.8
44build-type: Simple
55license: MIT
src/Language/PureScript/Sugar/Operators.hs−3
@@ -96,9 +96,6 @@ collectFixities m moduleName (FixityDeclaration fixity name : rest) = do
9696 collectFixities (M.insert qual fixity m) moduleName rest
9797collectFixities m moduleName (ImportDeclaration importedModule _ : rest) = do
9898 let fs = [ (i, fixity) | (Qualified mn i, fixity) <- M.toList m, mn == Just importedModule ]
99− forM_ fs $ \(name, _) -> do
100− let qual = Qualified (Just moduleName) name
101− when (qual `M.member` m) (Left $ "redefined fixity for " ++ show name)
10299 let m' = M.fromList (map (\(i, fixity) -> (Qualified (Just moduleName) i, fixity)) fs)
103100 collectFixities (M.union m' m) moduleName rest
104101collectFixities m moduleName (_:ds) = collectFixities m moduleName ds