[Gtk2hs-commit] Convert apiGen to use Data.Map

[Duncan C. <dun...@wo...>]

Thu Jul  6 12:22:00 PDT 2006  Duncan Coutts <du...@co...>
  * Convert apiGen to use Data.Map

    hunk ./tools/apiGen/CodeGen.hs 24
    -import Data.FiniteMap
    +import qualified Data.Map as Map
    hunk ./tools/apiGen/CodeGen.hs 592
    -   (listToFM
    +   (Map.fromList
    hunk ./tools/apiGen/FormatDocs.hs 33
    -import Data.FiniteMap
    +import qualified Data.Map as Map
    hunk ./tools/apiGen/FormatDocs.hs 186
    -  case lookupFM knownSymbols text of
    +  case Map.lookup text knownSymbols of
    hunk ./tools/apiGen/FormatDocs.hs 211
    -  case lookupFM knownSymbols text of
    +  case Map.lookup text knownSymbols of
    hunk ./tools/apiGen/FormatDocs.hs 288
    -  where e = lookupFM knownSymbols word'
    +  where e = Map.lookup word' knownSymbols
    hunk ./tools/apiGen/Marshal.hs 19
    -import Data.FiniteMap
    +import qualified Data.Map as Map
    +import Data.Map (Map)
    hunk ./tools/apiGen/Marshal.hs 22
    -type KnownSymbols = FiniteMap String CSymbol
    +type KnownSymbols = Map String CSymbol
    hunk ./tools/apiGen/Marshal.hs 152
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 162
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 172
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 344
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 368
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 377
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup (init typeName) knownSymbols
    hunk ./tools/apiGen/Marshal.hs 396
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 403
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 410
    -        typeKind = lookupFM knownSymbols typeName
    +        typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 434
    -  where typeKind = lookupFM knownSymbols typeName
    +  where typeKind = Map.lookup typeName knownSymbols
    hunk ./tools/apiGen/Marshal.hs 440
    -  where typeKind = lookupFM knownSymbols (init typeName)
    +  where typeKind = Map.lookup (init typeName) knownSymbols