[hoc-cvs] [hoc commit] r338 - trunk/hoc/HOC/HOC

[<cod...@go...>]

Author: wol...@gm...
Date: Sun Oct 19 13:31:18 2008
New Revision: 338

Modified:
    trunk/hoc/HOC/HOC/DeclareSelector.hs

Log:
"kill" some dead code


Modified: trunk/hoc/HOC/HOC/DeclareSelector.hs
==============================================================================
--- trunk/hoc/HOC/HOC/DeclareSelector.hs	(original)
+++ trunk/hoc/HOC/HOC/DeclareSelector.hs	Sun Oct 19 13:31:18 2008
@@ -246,8 +246,7 @@
                  sigD (mkName infoName) [t| SelectorInfo |],

                  -- $(infoName) = ...
-                let e = [| undefined |] `sigE` (return $ simplifyType  
doctoredTypeSig)
-                    in valD (varP $ mkName $ infoName) (normalB
+                valD (varP $ mkName $ infoName) (normalB
                          [|
                          	let n = $(stringE name)
                          	in $(selInfoMaker) n