"HsModule (SrcLoc {srcFilename = \"<unknown>\", srcLine = 1, srcColumn = 1}) (Module \"Main\") 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 = 6, srcColumn = 1}, importModule = Module \"MainForm\", importQualified = False, importAs = Nothing, importSpecs = Nothing}] [HsTypeSig (SrcLoc {srcFilename = \"<unknown>\", srcLine = 8, srcColumn = 1}) [HsIdent \"main\"] (HsQualType [] (HsTyApp (HsTyCon (UnQual (HsIdent \"IO\"))) (HsTyCon (Special HsUnitCon)))),HsPatBind (SrcLoc {srcFilename = \"<unknown>\", srcLine = 9, srcColumn = 1}) (HsPVar (HsIdent \"main\")) (HsUnGuardedRhs (HsApp (HsVar (UnQual (HsIdent \"start\"))) (HsVar (UnQual (HsIdent \"login\"))))) [],HsTypeSig (SrcLoc {srcFilename = \"<unknown>\", srcLine = 12, srcColumn = 1}) [HsIdent \"login\"] (HsQualType [] (HsTyApp (HsTyCon (UnQual (HsIdent \"IO\"))) (HsTyCon (Special HsUnitCon)))),HsPatBind (SrcLoc {srcFilename = \"<unknown>\", srcLine = 13, srcColumn = 1}) (HsPVar (HsIdent \"login\")) (HsUnGuardedRhs (HsDo [HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 15, srcColumn = 16}) (HsPVar (HsIdent \"fr\")) (HsApp (HsVar (UnQual (HsIdent \"frame\"))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Login\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 16, srcColumn = 16}) (HsPVar (HsIdent \"pn\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"panel\"))) (HsVar (UnQual (HsIdent \"fr\")))) (HsList [])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 18, 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 \"Username\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 19, 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 \"Password\"))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 21, 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\"))),HsInfixApp (HsVar (UnQual (HsIdent \&quot;wrap\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsCon (UnQual (HsIdent \"WrapNone\")))])),HsGenerator (SrcLoc {srcFilename = \"<unknown>\", srcLine = 24, 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 = 25, srcColumn = 13}) (HsPVar (HsIdent \"quit\")) (HsApp (HsApp (HsVar (UnQual (HsIdent \"button\"))) (HsVar (UnQual (HsIdent \"pn\")))) (HsList [HsInfixApp (HsVar (UnQual (HsIdent \"text\"))) (HsQConOp (UnQual (HsSymbol \":=\"))) (HsLit (HsString \"Quit\")),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 \"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 \"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 \"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 \"ok\"))),HsApp (HsVar (UnQual (HsIdent \"widget\"))) (HsVar (UnQual (HsIdent \"quit\")))])]))]))])) []]"