@@ -18,7 +18,7 @@ import Data.Monoid (Monoid(..), mconcat)
19import Control.Applicative
19import Control.Applicative
20import Control.Monad
20import Control.Monad
21−import Control.Arrow ((***), (+++))
21+import Control.Arrow ((***), (+++), second)
23import Language.PureScript.AST.Binders
23import Language.PureScript.AST.Binders
24import Language.PureScript.AST.Declarations
24import Language.PureScript.AST.Declarations
@@ -46,6 +46,7 @@ everywhereOnValues f g h = (f', g', h')
46 g' (Parens v) = g (Parens (g' v))
46 g' (Parens v) = g (Parens (g' v))
47 g' (ArrayLiteral vs) = g (ArrayLiteral (map g' vs))
47 g' (ArrayLiteral vs) = g (ArrayLiteral (map g' vs))
48 g' (ObjectLiteral vs) = g (ObjectLiteral (map (fmap g') vs))
48 g' (ObjectLiteral vs) = g (ObjectLiteral (map (fmap g') vs))
49+ g' (ObjectConstructor vs) = g (ObjectConstructor (map (second (fmap g')) vs))
49 g' (TypeClassDictionaryConstructorApp name v) = g (TypeClassDictionaryConstructorApp name (g' v))
50 g' (TypeClassDictionaryConstructorApp name v) = g (TypeClassDictionaryConstructorApp name (g' v))
50 g' (Accessor prop v) = g (Accessor prop (g' v))
51 g' (Accessor prop v) = g (Accessor prop (g' v))
51 g' (ObjectUpdate obj vs) = g (ObjectUpdate (g' obj) (map (fmap g') vs))
52 g' (ObjectUpdate obj vs) = g (ObjectUpdate (g' obj) (map (fmap g') vs))