Fix codegen for data constructor names

garyb · garyb · commit b71dd8bc6ed8 · 2014-02-17T22:20:58.000Z
diff --git a/examples/passing/DottedModules.purs b/examples/passing/DottedModules.purs
@@ -2,8 +2,10 @@ module Some.Module.Name where
 
   class Foo a where
     foo :: a -> a
+    
+  data Text = Text String
   
-  x = "Done"
+  x = Text "Done"
 
 module Main where
 
@@ -12,5 +14,7 @@ module Main where
   
   instance Some.Module.Name.Foo String where
     foo s = s
+    
+  unwrap (Text x) = x
 
-  main = Trace.print $ foo x
+  main = Trace.print $ foo $ unwrap x
diff --git a/src/Language/PureScript/Names.hs b/src/Language/PureScript/Names.hs
@@ -80,7 +80,7 @@ data Qualified a = Qualified (Maybe ModuleName) a deriving (Eq, Ord, Data, Typea
 
 instance (Show a) => Show (Qualified a) where
   show (Qualified Nothing a) = show a
-  show (Qualified (Just (ModuleName name)) a) = show name ++ "." ++ show a
+  show (Qualified (Just name) a) = show name ++ "." ++ show a
 
 -- |
 -- Provide a default module name, if a name is unqualified
