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 /src/GF/Speech/SISR.hs | |
| parent | fef4d56e7106fcbe7bde52afa2016a71d3a544e6 (diff) | |
Removed CFConst constructor, since it was unused.
Diffstat (limited to 'src/GF/Speech/SISR.hs')
| -rw-r--r-- | src/GF/Speech/SISR.hs | 1 |
1 files changed, 0 insertions, 1 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 "$") |