diff options
| author | aarne <unknown> | 2004-08-24 19:16:48 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-08-24 19:16:48 +0000 |
| commit | 4af78854b77949ebc839c43281774976b5575309 (patch) | |
| tree | 85cbaeb812c9622e9108ef97d364f851a8465347 /src | |
| parent | c86192273657fe17d4dfe246f0d850379b9e5866 (diff) | |
fixed incompleteness in prt
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Source/GrammarToSource.hs | 4 | ||||
| -rw-r--r-- | src/GF/System/Arch.hs | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index 641dc7b5d..135fc96c2 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -156,6 +156,7 @@ trt trm = case trm of trp :: Patt -> P.Patt trp p = case p of + PW -> P.PW PV s | isWildIdent s -> P.PW PV s -> P.PV $ tri s PC c [] -> P.PCon $ tri c @@ -164,7 +165,8 @@ trp p = case p of PP p c a -> P.PQC (tri p) (tri c) (map trp a) PR r -> P.PR [P.PA [trLabelIdent l] (trp p) | (l,p) <- r] PString s -> P.PStr s ----- PT t p -> prt p ---- prParenth (prt p +++ ":" +++ prt t) + PInt i -> P.PInt $ toInteger i + PT t p -> trp p ---- prParenth (prt p +++ ":" +++ prt t) trAssign (lab, (mty, t)) = maybe (P.LDDef x t') (\ty -> P.LDFull x (trt ty) t') mty diff --git a/src/GF/System/Arch.hs b/src/GF/System/Arch.hs index ce1b78775..a49c408a2 100644 --- a/src/GF/System/Arch.hs +++ b/src/GF/System/Arch.hs @@ -7,7 +7,7 @@ import Random import CPUTime import Monad (filterM) import Directory -import Readline +import System.Console.Readline ---- import qualified UnicodeF as U --(fudlogueWrite) |