7d1a3b4 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

Fix #394

commit7d1a3b49e0dce29506ca32ba7b0e501f50d42951 authorGary Burgess <gary.burgess@gmail.com> dateThu 1 May 2014, 20:51 (13 years ago) parent815ff40

2 files changed+5−2

unifiedsplit

examples/passing/Operators.purs+3

@@ -2,6 +2,9 @@ module Main where

33 import Control.Monad.Eff

44 import Debug.Trace

6+ (?!) :: forall a. a -> a -> a

7+ (?!) x _ = x

69 bar :: String -> String -> String

710 bar = \s1 s2 -> s1 ++ s2

src/Language/PureScript/Parser/Declarations.hs+2−2

@@ -123,13 +123,13 @@ parseImportDeclaration = do

123123 where

124124 stdImport = do

125125 moduleName' <- moduleName

126− idents <- P.optionMaybe $ parens $ commaSep parseDeclarationRef

126+ idents <- P.optionMaybe $ indented *> (parens $ commaSep parseDeclarationRef)

127127 return $ ImportDeclaration moduleName' idents Nothing

128128 qualImport = do

129129 reserved "qualified"

130130 indented

131131 moduleName' <- moduleName

132− idents <- P.optionMaybe $ parens $ commaSep parseDeclarationRef

132+ idents <- P.optionMaybe $ indented *> (parens $ commaSep parseDeclarationRef)

133133 reserved "as"

134134 asQ <- moduleName

135135 return $ ImportDeclaration moduleName' idents (Just asQ)