diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-29 12:21:15 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-29 12:21:15 +0000 |
| commit | 32d94e908c403d6bb0e9e57cd265a8b39d323a59 (patch) | |
| tree | 424b838d880330a6d08229e32b475a52883d897d | |
| parent | fef4d56e7106fcbe7bde52afa2016a71d3a544e6 (diff) | |
Removed CFConst constructor, since it was unused.
| -rw-r--r-- | src/GF/Speech/SISR.hs | 1 | ||||
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/src/GF/Speech/SISR.hs b/src/GF/Speech/SISR.hs index 2999a74a2..29d8a4d8c 100644 --- a/src/GF/Speech/SISR.hs +++ b/src/GF/Speech/SISR.hs @@ -67,7 +67,6 @@ profileFinalSISR term fmt = [JS.DExpr $ fmtOut fmt `ass` f term] f (CFApp x y) = JS.ECall (f x) [f y] f (CFRes i) = JS.EIndex (JS.EVar args) (JS.EInt (fromIntegral i)) f (CFVar v) = JS.EVar (var v) - f (CFConst s) = JS.EStr s f (CFMeta typ) = obj [("name",JS.EStr "?"), ("type",JS.EStr typ)] fmtOut SISROld = JS.EVar (JS.Ident "$") diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index 300f9654f..87fe8a160 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -58,7 +58,6 @@ data CFTerm | CFApp CFTerm CFTerm -- ^ Application | CFRes Int -- ^ The result of the n:th non-terminal | CFVar Int -- ^ A lambda-bound variable - | CFConst String | CFMeta String -- ^ A metavariable deriving (Eq,Ord,Show) |