Missed fromSpine

paf31 · paf31 · commit fc4090fd1fdd · 2015-11-17T20:12:15.000-08:00
diff --git a/core-tests/tests/generic-deriving/Main.purs b/core-tests/tests/generic-deriving/Main.purs
@@ -14,7 +14,7 @@ data A a
   = A Number String
   | B Int
   | C (Array (A a)) 
-  | D { a :: a }
+  | D { "asgård" :: a }
   | E Void
 
 derive instance genericA :: (Generic b) => Generic (A b)
@@ -24,4 +24,4 @@ newtype X b = X b
 derive instance genericX :: Generic (X String)
 
 main :: forall eff. Eff (console :: CONSOLE | eff) Unit
-main = Control.Monad.Eff.Console.log (gShow (D { a: C [ A 1.0 "test", B 42, D { a: true } ] }))
+main = Control.Monad.Eff.Console.log (gShow (D { "asgård": C [ A 1.0 "test", B 42, D { "asgård": true } ] }))
diff --git a/src/Language/PureScript/Sugar/TypeClasses/Deriving.hs b/src/Language/PureScript/Sugar/TypeClasses/Deriving.hs
@@ -170,7 +170,7 @@ mkFromSpineFunction mn (DataDeclaration _ _ _ args) = lamCase "$x" <$> (addCatch
   mkAlternative :: (ProperName, [Type]) -> m CaseAlternative
   mkAlternative (ctorName, tys) = do
     idents <- replicateM (length tys) (fmap Ident freshName)
-    return $ CaseAlternative [ prodBinder [ StringBinder (runProperName ctorName), ArrayBinder (map VarBinder idents)]]
+    return $ CaseAlternative [ prodBinder [ StringBinder (showQualified runProperName (Qualified (Just mn) ctorName)), ArrayBinder (map VarBinder idents)]]
                . Right
                $ liftApplicative (mkJust $ Constructor (Qualified (Just mn) ctorName))
                                  (zipWith fromSpineFun (map (Var . Qualified Nothing) idents) tys)
