language-c 0.8.1 → 0.8.2
raw patch · 4 files changed
+4/−5 lines, 4 filesdep ~containers
Dependency ranges changed: containers
Files
- ChangeLog +0/−1
- language-c.cabal +2/−2
- src/Language/C/Analysis/DefTable.hs +1/−1
- src/Language/C/Analysis/SemRep.hs +1/−1
ChangeLog view
@@ -1,7 +1,6 @@ Changes since 0.8.0 ========================================================================== - Changes since 0.7.0 ==========================================================================
language-c.cabal view
@@ -1,5 +1,5 @@ Name: language-c-Version: 0.8.1+Version: 0.8.2 Cabal-Version: >= 1.8 Build-Type: Simple License: BSD3@@ -41,7 +41,7 @@ Extensions: CPP, DeriveDataTypeable, DeriveGeneric, PatternGuards, BangPatterns, ExistentialQuantification, GeneralizedNewtypeDeriving, ScopedTypeVariables Build-Depends: base >= 3 && < 5, array,- containers,+ containers >= 0.3, deepseq >= 1.4.0.0 && < 1.5, directory, filepath,
src/Language/C/Analysis/DefTable.hs view
@@ -106,7 +106,7 @@ -- | get the globally defined entries of a definition table globalDefs :: DefTable -> GlobalDecls-globalDefs deftbl = Map.foldWithKey insertDecl (GlobalDecls e gtags e) (globalNames $ identDecls deftbl)+globalDefs deftbl = Map.foldrWithKey insertDecl (GlobalDecls e gtags e) (globalNames $ identDecls deftbl) where e = Map.empty (_fwd_decls,gtags) = Map.mapEither id $ globalNames (tagDecls deftbl)
src/Language/C/Analysis/SemRep.hs view
@@ -136,7 +136,7 @@ ( Map Ident Enumerator, Map Ident ObjDef, Map Ident FunDef ) )-splitIdentDecls include_all = Map.foldWithKey (if include_all then deal else deal') (Map.empty,(Map.empty,Map.empty,Map.empty))+splitIdentDecls include_all = Map.foldrWithKey (if include_all then deal else deal') (Map.empty,(Map.empty,Map.empty,Map.empty)) where deal ident entry (decls,defs) = (Map.insert ident (declOfDef entry) decls, addDef ident entry defs) deal' ident (Declaration d) (decls,defs) = (Map.insert ident d decls,defs)