"HsModule (SrcLoc {srcFilename = \"<unknown>\", srcLine = 1, srcColumn = 1}) (Module \"MainForm\") Nothing [HsImportDecl {importLoc = SrcLoc {srcFilename = \"<unknown>\", srcLine = 3, srcColumn = 1}, importModule = Module \"Graphics.UI.WX\", importQualified = False, importAs = Nothing, importSpecs = Nothing},HsImportDecl {importLoc = SrcLoc {srcFilename = \"<unknown>\", srcLine = 4, srcColumn = 1}, importModule = Module \"Graphics.UI.WXCore\", importQualified = False, importAs = Nothing, importSpecs = Nothing},HsImportDecl {importLoc = SrcLoc {srcFilename = \"<unknown>\", srcLine = 5, srcColumn = 1}, importModule = Module \"System.Exit\", importQualified = False, importAs = Nothing, importSpecs = Nothing},HsImportDecl {importLoc = SrcLoc {srcFilename = \"<unknown>\", srcLine = 7, srcColumn = 1}, importModule = Module \"Find\", importQualified = False, importAs = Nothing, importSpecs = Nothing},HsImportDecl {importLoc = SrcLoc {srcFilename = \"<unknown>\", srcLine = 8, srcColumn = 1}, importModule = Module \"ContactEditor\", importQualified = False, importAs = Nothing, importSpecs = Nothing}] [HsTypeSig (SrcLoc {srcFilename = \"<unknown>\", srcLine = 10, srcColumn = 1}) [HsIdent \"mainForm\"] (HsQualType [] (HsTyApp (HsTyCon (UnQual (HsIdent \"IO\"))) (HsTyCon (Special HsUnitCon)))),HsPatBind (SrcLoc {srcFilename = \"<unknown>\", srcLine = 11, srcColumn = 1}) (HsPVar (HsIdent \"mainForm\")) (HsUnGuardedRhs (HsDo [HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 13, srcColumn = 16}) (HsPVar (HsIdent \"fr\")) (HsApp (HsVar (UnQual (HsIdent \"frame\"))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"MainForm\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 14, srcColumn = 16}) (HsPVar (HsIdent \"pn\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"panel\"))) (HsVar (UnQual (HsIdent \"fr\")))) (HsList [])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 17, srcColumn = 15}) (HsPVar (HsIdent \"file\")) (HsApp (HsVar (UnQual (HsIdent \"menuPane\"))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"&File\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 18, srcColumn = 15}) (HsPVar (HsIdent \"quit\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"menuQuit\"))) (HsVar (UnQual (HsIdent \"file\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"help\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Quit the demo\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsVar (UnQual (HsIdent \"exitSuccess\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 21, srcColumn = 15}) (HsPVar (HsIdent \"hlp\")) (HsApp (HsVar (UnQual (HsIdent \"menuHelp\"))) (HsList [])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 22, srcColumn = 15}) (HsPVar (HsIdent \"about\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"menuAbout\"))) (HsVar (UnQual (HsIdent \"hlp\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"help\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"About wxHaskell\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 25, srcColumn = 11}) (HsPVar (HsIdent \"tc\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textCtrl\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 27, srcColumn = 15}) (HsPVar (HsIdent \"find\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Find\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsDo [HsQualifier (HsApp (HsVar (UnQual (HsIdent \"close\"))) (HsVar (UnQual (HsIdent \"fr\")))),HsQualifier (HsApp (HsVar (UnQual (HsIdent \"start\"))) (HsVar (UnQual (HsIdent \"find\"))))])])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 28, srcColumn = 13}) (HsPVar (HsIdent \"edit\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Edit\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsDo [HsQualifier (HsApp (HsVar (UnQual (HsIdent \"close\"))) (HsVar (UnQual (HsIdent \"fr\")))),HsQualifier (HsApp (HsVar (UnQual (HsIdent \"start\"))) (HsVar (UnQual (HsIdent \"contactEditor\"))))])])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 29, srcColumn = 13}) (HsPVar (HsIdent \"exit\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Exit\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsVar (UnQual (HsIdent \"exitSuccess\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 32, srcColumn = 13}) (HsPVar (HsIdent \"rb\")) (HsApp (HsApp (HsApp (HsApp (HsVar (UnQual (HsIdent \"radioBox\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsCon (UnQual (HsIdent \"Horizontal\")))) (HsList [HsLit (HsString \"E-mail\"),HsLit (HsString \"Name\")])) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Format:\"))])),HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"fr\")))) (HsList [HsInfixApp (HsInfixApp (HsInfixApp (HsVar (UnQual (HsIdent \"layout\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsApp (HsVar (UnQual (HsIdent \"container\"))) (HsVar (UnQual (HsIdent \"pn\"))))) (HsQVarOp (UnQual (HsSymbol \"$\"))) (HsApp (HsVar (UnQual (HsIdent \"margin\"))) (HsLit (HsInt 10)))) (HsQVarOp (UnQual (HsSymbol \"$\"))) (HsApp (HsApp (HsVar (UnQual (HsIdent \"column\"))) (HsLit (HsInt 5))) (HsList [HsApp (HsApp (HsVar (UnQual (HsIdent \"row\"))) (HsLit (HsInt 5))) (HsList [HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"tc\"))),HsApp (HsApp (HsVar (UnQual (HsIdent \"column\"))) (HsLit (HsInt 5))) (HsList [HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"find\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"edit\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"exit\")))])]),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"rb\")))])),HsInfixApp (HsVar (UnQual (HsIdent \"menuBar\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsList [HsVar (UnQual (HsIdent \"file\")),HsVar (UnQual (HsIdent \"hlp\"))]),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsParen (HsApp (HsVar (UnQual (HsIdent \"menu\"))) (HsVar (UnQual (HsIdent \"about\")))))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsApp (HsApp (HsApp (HsVar (UnQual (HsIdent \"infoDialog\"))) (HsVar (UnQual (HsIdent \"fr\")))) (HsLit (HsString \"About wxHaskell\"))) (HsLit (HsString \"This is a wxHaskell demo\")))]))])) []]"