diff options
| author | davve <davve@dtek.chalmers.se> | 2006-10-05 16:41:02 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-10-05 16:41:02 +0000 |
| commit | 3058c8f5fde5328f2291861d16ee2cb4c02bdee4 (patch) | |
| tree | c6a4dc3442ac10815817ca3306a781ed81e58ec0 /src | |
| parent | 32d9e028315fb384e95e5f96fb019193cec9a222 (diff) | |
Comment fixes
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 1b3cc0fa..df23987d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -863,7 +863,6 @@ toTypeNoLoc lname = noLoc (HsTyVar (unLoc lname)) rmLoc :: Located a -> Located a rmLoc a = noLoc (unLoc a) --- originally expected unqualified 1:st name, now it doesn't extractClassDecl :: Name -> Module -> [Located Name] -> LSig Name -> LSig Name extractClassDecl c mdl tvs0 (L pos (TypeSig lname ltype)) = case ltype of L _ (HsForAllTy exp tvs (L _ preds) ty) -> @@ -879,7 +878,6 @@ extractRecSel :: Name -> Module -> Name -> [Located Name] -> [LConDecl Name] -> LSig Name extractRecSel _ _ _ _ [] = error "extractRecSel: selector not found" --- originally expected unqualified 3:rd name, now it doesn't extractRecSel nm mdl t tvs (L _ con : rest) = case con_details con of RecCon fields | (HsRecField n ty _ : _) <- matching_fields fields -> @@ -1213,7 +1211,7 @@ getPackages session dynflags = do -- get InstalledPackageInfos for every package in the session pkgInfos <- getPreloadPackagesAnd dynflags [] - -- return a list of those packages that we could create PackageData's for + -- return a list of those packages that we could create PackageDatas for let pkgInfos' = filter notRTS pkgInfos liftM catMaybes (mapM tryGetPackage pkgInfos') |