"HsModule (SrcLoc {srcFilename = \"<unknown>\", srcLine = 1, srcColumn = 1}) (Module \"Find\") 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}] [HsTypeSig (SrcLoc {srcFilename = \"<unknown>\", srcLine = 7, srcColumn = 1}) [HsIdent \"find\"] (HsQualType [] (HsTyApp (HsTyCon (UnQual (HsIdent \"IO\"))) (HsTyCon (Special HsUnitCon)))),HsPatBind (SrcLoc {srcFilename = \"<unknown>\", srcLine = 8, srcColumn = 1}) (HsPVar (HsIdent \"find\")) (HsUnGuardedRhs (HsDo [HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 10, srcColumn = 16}) (HsPVar (HsIdent \"fr\")) (HsApp (HsVar (UnQual (HsIdent \"frame\"))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Find\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 11, srcColumn = 16}) (HsPVar (HsIdent \"pn\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"panel\"))) (HsVar (UnQual (HsIdent \"fr\")))) (HsList [])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 14, srcColumn = 17}) (HsPVar (HsIdent \"search\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Search\")),HsInfixApp (HsApp (HsVar (UnQual (HsIdent \"on\"))) (HsVar (UnQual (HsIdent \"command\")))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsApp (HsVar (UnQual (HsIdent \"logMessage\"))) (HsLit (HsString \"ok button pressed\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 15, 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 \":=\"))) (HsDo [HsQualifier (HsApp (HsVar (UnQual (HsIdent \"close\"))) (HsVar (UnQual (HsIdent \"fr\"))))])])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 17, 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 \"Find what:\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 18, 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\"))),HsInfixApp (HsVar (UnQual (HsIdent \"wrap\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"WrapNone\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 20, 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 \"Clients:\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 21, srcColumn = 11}) (HsPVar (HsIdent \"tc\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"textCtrl\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 23, srcColumn = 13}) (HsPVar (HsIdent \"cb1\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"checkBox\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Match case\")),HsInfixApp (HsVar (UnQual (HsIdent \"checked\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"True\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 24, srcColumn = 13}) (HsPVar (HsIdent \"cb2\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"checkBox\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Whole words\")),HsInfixApp (HsVar (UnQual (HsIdent \"checked\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"False\")))])),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 \"row\"))) (HsLit (HsInt 5))) (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 (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"cb1\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"cb2\"))),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 \"tc\")))])]),HsApp (HsApp (HsVar (UnQual (HsIdent \"column\"))) (HsLit (HsInt 5))) (HsList [HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"search\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"cancel\")))])]))]))])) []]"