Merge pull request #5 from feuerbach/master

Fix lens generation when field names are imported qualified
joelburget · Sep 4, 2012 · 2132129 · 2132129
2 parents 2b10de3 + 1902021
commit 2132129
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Data/Lens/Template.hs b/Data/Lens/Template.hs
@@ -103,9 +103,9 @@ decMakeLens t dec namer = do
         liftM (concat . catMaybes) $ mapM (\ (name,_,ftype) -> makeAccFromName name params ftype) vars
 
     transformName :: Name -> Maybe Name
-    transformName (Name occ f) = do
+    transformName (Name occ _) = do
         n <- namer (occString occ)
-        return $ Name (mkOccName n) f
+        return $ Name (mkOccName n) NameS
 
     makeAccFromName :: Name -> [TyVarBndr] -> Type -> Q (Maybe [Dec])
     makeAccFromName name params ftype =