From 92f22c8f5c13c381d323caeffe17b6dab4c2d927 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Fri, 20 Jan 2006 18:20:02 +0000
Subject: Use right start category names in si command.

---
 src/GF/Speech/TransformCFG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs
index f2a3a2fba..08aae8897 100644
--- a/src/GF/Speech/TransformCFG.hs
+++ b/src/GF/Speech/TransformCFG.hs
@@ -36,7 +36,7 @@ import GF.Speech.FiniteState
 import Control.Monad
 import Data.FiniteMap
 import Data.List
-import Data.Maybe (fromJust, fromMaybe)
+import Data.Maybe (fromMaybe)
 import Data.Set (Set)
 import qualified Data.Set as Set
 
-- 
cgit v1.2.3