simplify return . VarE master
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 8 Nov 2010 11:17:52 +0000 (11:17 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 8 Nov 2010 11:17:52 +0000 (11:17 +0000)
Language/Haskell/SealModule.hs

index 849c67c..429997c 100644 (file)
@@ -72,7 +72,7 @@ sealModule declQ = do
 
     fn <- funD comb [
             clause (map varP paramNames)
-                   (normalB (tupE (map (return . VarE) definedNames)))
+                   (normalB (tupE (map varE definedNames)))
                    (map return real)
             ]
     let types = case findParamTypes paramNames decl of