hpastetwo

New Revision

ghci> a <- readFile "/usr/local/ghc/ghc-6.10.1/lib/ghc-6.10.1/package.conf"
ghci> let Right e = pExp a                                                                                                       ghci> ppHs e                                                                                                                     List
  [RecConstr (UnQual (Ident "InstalledPackageInfo"))
     [FieldUpdate (UnQual (Ident "package"))
        (RecConstr (UnQual (Ident "PackageIdentifier"))
           [FieldUpdate (UnQual (Ident "pkgName"))
              (App (Con (UnQual (Ident "PackageName")))
                 (Lit (String "haddock"))),
            FieldUpdate (UnQual (Ident "pkgVersion"))
              (RecConstr (UnQual (Ident "Version"))
                 [FieldUpdate (UnQual (Ident "versionBranch"))
                    (List [Lit (Int 2), Lit (Int 3), Lit (Int 0)]),
                  FieldUpdate (UnQual (Ident "versionTags")) (List [])])]),
      FieldUpdate (UnQual (Ident "license"))
        (Con (UnQual (Ident "BSD3"))),
      FieldUpdate (UnQual (Ident "copyright"))
        (Lit (String "(c) Simon Marlow, David Waern")),
      FieldUpdate (UnQual (Ident "maintainer"))
        (Lit (String "David Waern <david.waern@gmail.com>")),
      FieldUpdate (UnQual (Ident "author"))
        (Lit (String "Simon Marlow, David Waern")),
      FieldUpdate (UnQual (Ident "stability"))
        (Lit (String "experimental")),
      FieldUpdate (UnQual (Ident "homepage"))
        (Lit (String "http://www.haskell.org/haddock/")),
      FieldUpdate (UnQual (Ident "pkgUrl")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "description"))
        (Lit
           (String
              "Haddock is a documentation-generation tool for Haskell\nlibraries")),
      FieldUpdate (UnQual (Ident "category"))
        (Lit (String "Development")),
      FieldUpdate (UnQual (Ident "exposed"))
        (Con (UnQual (Ident "True"))),
      FieldUpdate (UnQual (Ident "exposedModules"))
        (List [Lit (String "Distribution.Haddock")]),
      FieldUpdate (UnQual (Ident "hiddenModules"))
        (List
           [Lit (String "Haddock.Types"),
            Lit (String "Haddock.InterfaceFile"),
            Lit (String "Haddock.Exception")]),
      FieldUpdate (UnQual (Ident "importDirs"))
        (List
           [Lit
              (String
                 "/usr/local/ghc/ghc-6.10.1/lib/ghc-6.10.1/haddock-2.3.0")]),
      FieldUpdate (UnQual (Ident "libraryDirs"))
        (List
           [Lit
              (String
                 "/usr/local/ghc/ghc-6.10.1/lib/ghc-6.10.1/haddock-2.3.0")]),
      FieldUpdate (UnQual (Ident "hsLibraries"))
        (List [Lit (String "HShaddock-2.3.0")]),
      FieldUpdate (UnQual (Ident "extraLibraries")) (List []),
      FieldUpdate (UnQual (Ident "extraGHCiLibraries")) (List []),
      FieldUpdate (UnQual (Ident "includeDirs")) (List []),
      FieldUpdate (UnQual (Ident "includes")) (List []),
      FieldUpdate (UnQual (Ident "depends"))
        (List
           [RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName"))) (Lit (String "Cabal"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 1), Lit (Int 6), Lit (Int 0), Lit (Int 1)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName"))) (Lit (String "array"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 0), Lit (Int 2), Lit (Int 0), Lit (Int 0)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName"))) (Lit (String "base"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 4), Lit (Int 0), Lit (Int 0), Lit (Int 0)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName")))
                    (Lit (String "containers"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 0), Lit (Int 2), Lit (Int 0), Lit (Int 0)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName")))
                    (Lit (String "directory"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 1), Lit (Int 0), Lit (Int 0), Lit (Int 2)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName")))
                    (Lit (String "filepath"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 1), Lit (Int 1), Lit (Int 0), Lit (Int 1)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName"))) (Lit (String "ghc"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 6), Lit (Int 10), Lit (Int 1)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName")))
                    (Lit (String "haskell98"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 1), Lit (Int 0), Lit (Int 1), Lit (Int 0)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])],
            RecConstr (UnQual (Ident "PackageIdentifier"))
              [FieldUpdate (UnQual (Ident "pkgName"))
                 (App (Con (UnQual (Ident "PackageName"))) (Lit (String "pretty"))),
               FieldUpdate (UnQual (Ident "pkgVersion"))
                 (RecConstr (UnQual (Ident "Version"))
                    [FieldUpdate (UnQual (Ident "versionBranch"))
                       (List [Lit (Int 1), Lit (Int 0), Lit (Int 1), Lit (Int 0)]),
                     FieldUpdate (UnQual (Ident "versionTags")) (List [])])]]),
      FieldUpdate (UnQual (Ident "hugsOptions")) (List []),
      FieldUpdate (UnQual (Ident "ccOptions")) (List []),
      FieldUpdate (UnQual (Ident "ldOptions")) (List []),
      FieldUpdate (UnQual (Ident "frameworkDirs")) (List []),
      FieldUpdate (UnQual (Ident "frameworks")) (List []),
      FieldUpdate (UnQual (Ident "haddockInterfaces"))
        (List [Lit (String "haddock.haddock")]),
      FieldUpdate (UnQual (Ident "haddockHTMLs"))
        (List [Lit (String "/usr/local/ghc/ghc-6.10.1/share/doc/ghc")])],
   RecConstr (UnQual (Ident "InstalledPackageInfo"))
     [FieldUpdate (UnQual (Ident "package"))
        (RecConstr (UnQual (Ident "PackageIdentifier"))
           [FieldUpdate (UnQual (Ident "pkgName"))
              (App (Con (UnQual (Ident "PackageName"))) (Lit (String "rts"))),
            FieldUpdate (UnQual (Ident "pkgVersion"))
              (RecConstr (UnQual (Ident "Version"))
                 [FieldUpdate (UnQual (Ident "versionBranch"))
                    (List [Lit (Int 1), Lit (Int 0)]),
                  FieldUpdate (UnQual (Ident "versionTags")) (List [])])]),
      FieldUpdate (UnQual (Ident "license"))
        (Con (UnQual (Ident "BSD3"))),
      FieldUpdate (UnQual (Ident "copyright")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "maintainer"))
        (Lit (String "glasgow-haskell-users@haskell.org")),
      FieldUpdate (UnQual (Ident "author")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "stability")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "homepage")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "pkgUrl")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "description")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "category")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "exposed"))
        (Con (UnQual (Ident "True"))),
      FieldUpdate (UnQual (Ident "exposedModules")) (List []),
      FieldUpdate (UnQual (Ident "hiddenModules")) (List []),
      FieldUpdate (UnQual (Ident "importDirs")) (List []),
      FieldUpdate (UnQual (Ident "libraryDirs"))
        (List [Lit (String "/usr/local/ghc/ghc-6.10.1/lib/ghc-6.10.1")]),
      FieldUpdate (UnQual (Ident "hsLibraries"))
        (List [Lit (String "HSrts")]),
      FieldUpdate (UnQual (Ident "extraLibraries"))
        (List
           [Lit (String "m"), Lit (String "ffi"), Lit (String "gmp"),
            Lit (String "dl"), Lit (String "rt")]),
      FieldUpdate (UnQual (Ident "extraGHCiLibraries")) (List []),
      FieldUpdate (UnQual (Ident "includeDirs"))
        (List
           [Lit (String "/usr/local/ghc/ghc-6.10.1/lib/ghc-6.10.1/include"),
            Lit (String "PAPI_INCLUDE_DIR")]),
      FieldUpdate (UnQual (Ident "includes"))
        (List [Lit (String "Stg.h")]),
      FieldUpdate (UnQual (Ident "depends")) (List []),
      FieldUpdate (UnQual (Ident "hugsOptions")) (List []),
      FieldUpdate (UnQual (Ident "ccOptions")) (List []),
      FieldUpdate (UnQual (Ident "ldOptions"))
        (List
           [Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Izh_static_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Czh_static_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Fzh_static_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Dzh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziPtr_Ptr_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziWord_Wzh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziInt_I8zh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziInt_I16zh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziInt_I32zh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziInt_I64zh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziWord_W8zh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziWord_W16zh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziWord_W32zh_static_info"),
            Lit (String "-u"), Lit (String "base_GHCziWord_W64zh_static_info"),
            Lit (String "-u"),
            Lit (String "base_GHCziStable_StablePtr_static_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Izh_con_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Czh_con_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Fzh_con_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziTypes_Dzh_con_info"),
            Lit (String "-u"), Lit (String "base_GHCziPtr_Ptr_con_info"),
            Lit (String "-u"), Lit (String "base_GHCziPtr_FunPtr_con_info"),
            Lit (String "-u"),
            Lit (String "base_GHCziStable_StablePtr_con_info"),
            Lit (String "-u"),
            Lit (String "ghczmprim_GHCziBool_False_closure"),
            Lit (String "-u"), Lit (String "ghczmprim_GHCziBool_True_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziPack_unpackCString_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziIOBase_stackOverflow_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziIOBase_heapOverflow_closure"),
            Lit (String "-u"),
            Lit
              (String "base_ControlziExceptionziBase_nonTermination_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziIOBase_blockedOnDeadMVar_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziIOBase_blockedIndefinitely_closure"),
            Lit (String "-u"),
            Lit
              (String "base_ControlziExceptionziBase_nestedAtomically_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziWeak_runFinalizzerBatch_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziTopHandler_runIO_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziTopHandler_runNonIO_closure"),
            Lit (String "-u"),
            Lit (String "base_GHCziConc_ensureIOManagerIsRunning_closure")]),
      FieldUpdate (UnQual (Ident "frameworkDirs")) (List []),
      FieldUpdate (UnQual (Ident "frameworks")) (List []),
      FieldUpdate (UnQual (Ident "haddockInterfaces")) (List []),
      FieldUpdate (UnQual (Ident "haddockHTMLs")) (List [])],
   RecConstr (UnQual (Ident "InstalledPackageInfo"))
     [FieldUpdate (UnQual (Ident "package"))
        (RecConstr (UnQual (Ident "PackageIdentifier"))
           [FieldUpdate (UnQual (Ident "pkgName"))
              (App (Con (UnQual (Ident "PackageName"))) (Lit (String "ghc"))),
            FieldUpdate (UnQual (Ident "pkgVersion"))
              (RecConstr (UnQual (Ident "Version"))
                 [FieldUpdate (UnQual (Ident "versionBranch"))
                    (List [Lit (Int 6), Lit (Int 10), Lit (Int 1)]),
                  FieldUpdate (UnQual (Ident "versionTags")) (List [])])]),
      FieldUpdate (UnQual (Ident "license"))
        (Con (UnQual (Ident "BSD3"))),
      FieldUpdate (UnQual (Ident "copyright")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "maintainer"))
        (Lit (String "glasgow-haskell-users@haskell.org")),
      FieldUpdate (UnQual (Ident "author"))
        (Lit (String "The GHC Team")),
      FieldUpdate (UnQual (Ident "stability")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "homepage"))
        (Lit (String "http://www.haskell.org/ghc/")),
      FieldUpdate (UnQual (Ident "pkgUrl")) (Lit (String "")),
      FieldUpdate (UnQual (Ident "description"))
        (Lit
           (String
              "GHC's functionality can be useful for more things than just\ncompiling Haskell programs. Important use cases are programs\nthat analyse (and perhaps transform) Haskell code. Others\ninclude loading Haskell code dynamically in a GHCi-like manner.\nFor this reason, a lot of GHC's functionality is made available\nthrough this package.")),
      FieldUpdate (UnQual (Ident "category"))
        (Lit (String "Development")),
      FieldUpdate (UnQual (Ident "exposed"))
        (Con (UnQual (Ident "True"))),
      FieldUpdate (UnQual (Ident "exposedModules"))
        (List
           [Lit (String "AsmCodeGen"), Lit (String "MachCodeGen"),
            Lit (String "MachInstrs"), Lit (String "MachRegs"),
            Lit (String "NCGMonad"), Lit (String "PositionIndependentCode"),
            Lit (String "PprMach"), Lit (String "RegAllocColor"),
            Lit (String "RegAllocInfo"), Lit (String "RegAllocLinear"),
            Lit (String "RegAllocStats"), Lit (String "RegArchBase"),
            Lit (String "RegArchX86"), Lit (String "RegCoalesce"),
            Lit (String "RegLiveness"), Lit (String "RegSpill"),
            Lit (String "RegSpillClean"), Lit (String "RegSpillCost"),
            Lit (String "DsMeta"), Lit (String "TcSplice"),
            Lit (String "Convert"), Lit (String "ByteCodeAsm"),
            Lit (String "ByteCodeFFI"), Lit (String "ByteCodeGen"),
            Lit (String "ByteCodeInstr"), Lit (String "ByteCodeItbls"),
            Lit (String "ByteCodeLink"), Lit (String "Debugger"),
            Lit (String "GhciMonad"), Lit (String "GhciTags"),
            Lit (String "InteractiveUI"), Lit (String "LibFFI"),
            Lit (String "Linker"), Lit (String "ObjLink"),
            Lit (String "RtClosureInspect"), Lit (String "BasicTypes"),
            Lit (String "DataCon"), Lit (String "Demand"),
            Lit (String "Exception"), Lit (String "Id"), Lit (String "IdInfo"),
            Lit (String "Literal"), Lit (String "MkId"), Lit (String "Module"),
            Lit (String "Name"), Lit (String "NameEnv"),
            Lit (String "NameSet"), Lit (String "NewDemand"),
            Lit (String "OccName"), Lit (String "RdrName"),
            Lit (String "SrcLoc"), Lit (String "UniqSupply"),
            Lit (String "Unique"), Lit (String "Var"), Lit (String "VarEnv"),
            Lit (String "VarSet"), Lit (String "BlockId"),
            Lit (String "CLabel"), Lit (String "Cmm"),
            Lit (String "CmmBrokenBlock"), Lit (String "CmmCPS"),
            Lit (String "CmmCPSGen"), Lit (String "CmmCPSZ"),
            Lit (String "CmmCallConv"), Lit (String "CmmCommonBlockElimZ"),
            Lit (String "CmmContFlowOpt"), Lit (String "CmmCvt"),
            Lit (String "CmmExpr"), Lit (String "CmmInfo"),
            Lit (String "CmmLex"), Lit (String "CmmLint"),
            Lit (String "CmmLive"), Lit (String "CmmLiveZ"),
            Lit (String "CmmOpt"), Lit (String "CmmParse"),
            Lit (String "CmmProcPoint"), Lit (String "CmmProcPointZ"),
            Lit (String "CmmSpillReload"), Lit (String "CmmTx"),
            Lit (String "CmmUtils"), Lit (String "CmmZipUtil"),
            Lit (String "DFMonad"), Lit (String "Dataflow"),
            Lit (String "MachOp"), Lit (String "MkZipCfg"),
            Lit (String "MkZipCfgCmm"), Lit (String "OptimizationFuel"),
            Lit (String "PprC"), Lit (String "PprCmm"), Lit (String "PprCmmZ"),
            Lit (String "StackColor"), Lit (String "StackPlacements"),
            Lit (String "ZipCfg"), Lit (String "ZipCfgCmmRep"),
            Lit (String "ZipCfgExtras"), Lit (String "ZipDataflow"),
            Lit (String "Bitmap"), Lit (String "CgBindery"),
            Lit (String "CgCallConv"), Lit (String "CgCase"),
            Lit (String "CgClosure"), Lit (String "CgCon"),
            Lit (String "CgExpr"), Lit (String "CgForeignCall"),
            Lit (String "CgHeapery"), Lit (String "CgHpc"),
            Lit (String "CgInfoTbls"), Lit (String "CgLetNoEscape"),
            Lit (String "CgMonad"), Lit (String "CgParallel"),
            Lit (String "CgPrimOp"), Lit (String "CgProf"),
            Lit (String "CgStackery"), Lit (String "CgTailCall"),
            Lit (String "CgTicky"), Lit (String "CgUtils"),
            Lit (String "ClosureInfo"), Lit (String "CodeGen"),
            Lit (String "SMRep"), Lit (String "CoreFVs"),
            Lit (String "CoreLint"), Lit (String "CorePrep"),
            Lit (String "CoreSubst"), Lit (String "CoreSyn"),
            Lit (String "CoreTidy"), Lit (String "CoreUnfold"),
            Lit (String "CoreUtils"), Lit (String "ExternalCore"),
            Lit (String "MkCore"), Lit (String "MkExternalCore"),
            Lit (String "PprCore"), Lit (String "PprExternalCore"),
            Lit (String "CprAnalyse"), Lit (String "Check"),
            Lit (String "Coverage"), Lit (String "Desugar"),
            Lit (String "DsArrows"), Lit (String "DsBinds"),
            Lit (String "DsCCall"), Lit (String "DsExpr"),
            Lit (String "DsForeign"), Lit (String "DsGRHSs"),
            Lit (String "DsListComp"), Lit (String "DsMonad"),
            Lit (String "DsUtils"), Lit (String "Match"),
            Lit (String "MatchCon"), Lit (String "MatchLit"),
            Lit (String "HsBinds"), Lit (String "HsDecls"),
            Lit (String "HsDoc"), Lit (String "HsExpr"),
            Lit (String "HsImpExp"), Lit (String "HsLit"),
            Lit (String "HsPat"), Lit (String "HsSyn"), Lit (String "HsTypes"),
            Lit (String "HsUtils"), Lit (String "BinIface"),
            Lit (String "BuildTyCl"), Lit (String "IfaceEnv"),
            Lit (String "IfaceSyn"), Lit (String "IfaceType"),
            Lit (String "LoadIface"), Lit (String "MkIface"),
            Lit (String "TcIface"), Lit (String "BreakArray"),
            Lit (String "CmdLineParser"), Lit (String "CodeOutput"),
            Lit (String "Config"), Lit (String "Constants"),
            Lit (String "DriverMkDepend"), Lit (String "DriverPhases"),
            Lit (String "DriverPipeline"), Lit (String "DynFlags"),
            Lit (String "ErrUtils"), Lit (String "Finder"), Lit (String "GHC"),
            Lit (String "HeaderInfo"), Lit (String "HscMain"),
            Lit (String "HscStats"), Lit (String "HscTypes"),
            Lit (String "InteractiveEval"), Lit (String "PackageConfig"),
            Lit (String "Packages"), Lit (String "ParsePkgConf"),
            Lit (String "PprTyThing"), Lit (String "StaticFlags"),
            Lit (String "StaticFlagParser"), Lit (String "SysTools"),
            Lit (String "TidyPgm"), Lit (String "Ctype"),
            Lit (String "HaddockLex"), Lit (String "HaddockParse"),
            Lit (String "HaddockUtils"), Lit (String "LexCore"),
            Lit (String "Lexer"), Lit (String "Parser"),
            Lit (String "ParserCore"), Lit (String "ParserCoreUtils"),
            Lit (String "RdrHsSyn"), Lit (String "ForeignCall"),
            Lit (String "PrelInfo"), Lit (String "PrelNames"),
            Lit (String "PrelRules"), Lit (String "PrimOp"),
            Lit (String "TysPrim"), Lit (String "TysWiredIn"),
            Lit (String "CostCentre"), Lit (String "SCCfinal"),
            Lit (String "RnBinds"), Lit (String "RnEnv"),
            Lit (String "RnExpr"), Lit (String "RnHsDoc"),
            Lit (String "RnHsSyn"), Lit (String "RnNames"),
            Lit (String "RnPat"), Lit (String "RnSource"),
            Lit (String "RnTypes"), Lit (String "CSE"), Lit (String "FloatIn"),
            Lit (String "FloatOut"), Lit (String "LiberateCase"),
            Lit (String "OccurAnal"), Lit (String "SAT"),
            Lit (String "SetLevels"), Lit (String "SimplCore"),
            Lit (String "SimplEnv"), Lit (String "SimplMonad"),
            Lit (String "SimplUtils"), Lit (String "Simplify"),
   ^C Interrupted.
ghci>

author title

language channel