From 19af3254dc583dbb21723f07c7afb3da5ceefe67 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Mon, 20 Mar 2006 12:49:31 +0000
Subject: Replaced all used of Data.FiniteMap with Data.Map.

---
 src/GF/Speech/TransformCFG.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/GF/Speech/TransformCFG.hs')

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
-- 
cgit v1.2.3