"HsModule (SrcLoc {srcFilename = \"<unknown>\", srcLine = 1, srcColumn = 1}) (Module \"ContactEditor\") 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}] [HsTypeSig (SrcLoc {srcFilename = \"<unknown>\", srcLine = 8, srcColumn = 1}) [HsIdent \"contactEditor\"] (HsQualType [] (HsTyApp (HsTyCon (UnQual (HsIdent \"IO\&quot;))) (HsTyCon (Special HsUnitCon)))),HsPatBind (SrcLoc {srcFilename = \"<unknown>\", srcLine = 9, srcColumn = 1}) (HsPVar (HsIdent \"contactEditor\")) (HsUnGuardedRhs (HsDo [HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 11, srcColumn = 16}) (HsPVar (HsIdent \"fr\")) (HsApp (HsVar (UnQual (HsIdent \"frame\"))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"ContactEditor\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 12, srcColumn = 16}) (HsPVar (HsIdent \"pn\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"panel\"))) (HsVar (UnQual (HsIdent \"fr\")))) (HsList [])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 14, srcColumn = 15}) (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 \":=\"))) (HsApp (HsVar (UnQual (HsIdent \"logMessage\"))) (HsLit (HsString \"edit button pressed\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 16, srcColumn = 15}) (HsPVar (HsIdent \"remove\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Remove\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsDo [HsQualifier (HsIf (HsParen (HsCon (UnQual (HsIdent \"False\")))) (HsDo [HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"edit\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"False\")))]))]) (HsDo [HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"edit\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))]))]))])])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 26, srcColumn = 14}) (HsPVar (HsIdent \"add\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Add\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsDo [HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"edit\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"remove\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))]))])])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 34, srcColumn = 13}) (HsPVar (HsIdent \"ok\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Ok\")),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 \"mainForm\"))))])])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 35, srcColumn = 15}) (HsPVar (HsIdent \"cancel\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Cancel\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsApp (HsVar (UnQual (HsIdent \"close\"))) (HsVar (UnQual (HsIdent \"fr\"))))])),HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"add\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsQualifier (HsIf (HsParen (HsCon (UnQual (HsIdent \"True\")))) (HsDo [HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"edit\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"remove\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))]))]) (HsDo [HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"edit\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"False\")))])),HsQualifier (HsApp (HsApp (HsVar (UnQual (HsIdent \"set\"))) (HsVar (UnQual (HsIdent \"remove\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"False\")))]))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 58, srcColumn = 12}) (HsPVar (HsIdent \"lb1\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"staticText\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"First name:\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 59, srcColumn = 12}) (HsPVar (HsIdent \"tb1\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textEntry\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 60, srcColumn = 12}) (HsPVar (HsIdent \"lb2\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"staticText\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Last name:\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 61, srcColumn = 12}) (HsPVar (HsIdent \"tb2\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textEntry\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 62, srcColumn = 12}) (HsPVar (HsIdent \"lb3\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"staticText\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Title:\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 63, srcColumn = 12}) (HsPVar (HsIdent \"tb3\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textEntry\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 64, srcColumn = 12}) (HsPVar (HsIdent \"lb4\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"staticText\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Nickname:\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 65, srcColumn = 12}) (HsPVar (HsIdent \"tb4\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textEntry\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 66, srcColumn = 12}) (HsPVar (HsIdent \"lb5\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"staticText\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"E-mail:\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 67, srcColumn = 12}) (HsPVar (HsIdent \"tb5\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textEntry\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 69, srcColumn = 11}) (HsPVar (HsIdent \"tc\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textEntry\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"enabled\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),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 15))) (HsList [HsApp (HsApp (HsVar (UnQual (HsIdent \"row\"))) (HsLit (HsInt 35))) (HsList [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 \"lb1\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"tb1\")))]),HsApp (HsApp (HsVar (UnQual (HsIdent \"row\"))) (HsLit (HsInt 5))) (HsList [HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"lb3\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"tb3\")))])]),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 \"lb2\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"tb2\")))]),HsApp (HsApp (HsVar (UnQual (HsIdent \"row\"))) (HsLit (HsInt 5))) (HsList [HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"lb4\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"tb4\")))])])]),HsApp (HsApp (HsVar (UnQual (HsIdent \"row\"))) (HsLit (HsInt 35))) (HsList [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 \"lb5\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"tb5\")))]),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 \"add\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"edit\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"remove\")))])]),HsApp (HsApp (HsVar (UnQual (HsIdent \"row\"))) (HsLit (HsInt 35))) (HsList [HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"ok\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"cancel\")))])]))]))])) []]"