diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-03-20 12:49:31 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-03-20 12:49:31 +0000 |
| commit | 19af3254dc583dbb21723f07c7afb3da5ceefe67 (patch) | |
| tree | f3366bfe1bc13aabc2bcc4d4857f01ec0d104d2f /src/GF/Speech/TransformCFG.hs | |
| parent | 076c390b73cdb9d30277655d92c2213a55005d80 (diff) | |
Replaced all used of Data.FiniteMap with Data.Map.
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index 38148418c..44ecd1bb0 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -34,7 +34,8 @@ import GF.Infra.Print import GF.Speech.FiniteState import Control.Monad -import Data.FiniteMap +import Data.Map (Map) +import qualified Data.Map as Map import Data.List import Data.Maybe (fromMaybe) import Data.Monoid (mconcat) @@ -60,7 +61,7 @@ getStartCat opts = fromMaybe "S" (getOptVal opts gStartCat) ++ "{}.s" -- | Group productions by their lhs categories groupProds :: [CFRule_] -> CFRules -groupProds = fmToList . addListToFM_C (++) emptyFM . map (\r -> (lhsCat r,[r])) +groupProds = Map.toList . Map.fromListWith (++) . map (\r -> (lhsCat r,[r])) ungroupProds :: CFRules -> [CFRule_] ungroupProds = concat . map snd |