[don't desugar right sections or expression type signatures or attach aspats to case statements
John Meacham <john@repetae.net>**20060407150050] hunk ./FrontEnd/Desugar.hs 63
-readUnique
-   = do
+readUnique = do
hunk ./FrontEnd/Desugar.hs 68
-readSyns
-   = do
+readSyns = do
hunk ./FrontEnd/Desugar.hs 110
--- a new (unique) name introduced in expressions
-newVarName :: HsName
-newVarName = nameName $ toName Val  "var@0"
hunk ./FrontEnd/Desugar.hs 497
-        let nv = (nameName $ toName Val "rsection@")
-        return (HsLambda bogusASrcLoc [HsPVar nv ] (HsApp (HsRightSection newE1 newE2) (HsVar nv)))
+        return (HsRightSection newE1 newE2)
+        --let nv = (nameName $ toName Val "rsection@")
+        --return (HsLambda bogusASrcLoc [HsPVar nv ] (HsApp (HsRightSection newE1 newE2) (HsVar nv)))
hunk ./FrontEnd/Desugar.hs 512
-desugarExp (HsEnumFrom e)
-   = do
+desugarExp (HsEnumFrom e) = do
hunk ./FrontEnd/Desugar.hs 516
-desugarExp (HsEnumFromTo e1 e2)
-   = do
+desugarExp (HsEnumFromTo e1 e2) = do
hunk ./FrontEnd/Desugar.hs 521
-desugarExp (HsEnumFromThen e1 e2)
-   = do
+desugarExp (HsEnumFromThen e1 e2) = do
hunk ./FrontEnd/Desugar.hs 526
-desugarExp (HsEnumFromThenTo e1 e2 e3)
-   = do
+desugarExp (HsEnumFromThenTo e1 e2 e3) = do
hunk ./FrontEnd/Desugar.hs 532
-desugarExp (HsListComp e stmts)
-   = do
+desugarExp (HsListComp e stmts) = do
hunk ./FrontEnd/Desugar.hs 547
-desugarExp (HsExpTypeSig sloc e qualType)
-    | fopts FO.Boxy = do
+desugarExp (HsExpTypeSig sloc e qualType) = do
hunk ./FrontEnd/Desugar.hs 551
-    | otherwise = do
-        newE <- desugarExp e
-        newQualType <- remSynsQualType qualType
-        let newTypeSig = HsTypeSig sloc [newVarName] newQualType
-        let newVarDecl = HsPatBind sloc
-                                    (HsPVar newVarName)
-                                    (HsUnGuardedRhs newE) []
-        return (HsLet [newTypeSig, newVarDecl] (HsVar newVarName))
hunk ./FrontEnd/Desugar.hs 553
-desugarExp (HsAsPat name e)
-   = do
+desugarExp (HsAsPat name e) = do
hunk ./FrontEnd/Desugar.hs 560
-desugarExp (HsIrrPat e)
-   = do
+desugarExp (HsIrrPat e) = do
hunk ./FrontEnd/Rename.hs 760
-    wrapInAsPat (HsCase hsExp' hsAlts')
+    return (HsCase hsExp' hsAlts')