diff options
| author | aarne <unknown> | 2004-08-15 21:02:10 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-08-15 21:02:10 +0000 |
| commit | c96162ba8b228e0e2db0202c4ee155103537488a (patch) | |
| tree | 5407a7e20c138ace5606e63aa891eba46c1bbf62 /src/GF/Compile | |
| parent | f65d08638bb0cded9b4c74d810696e920fcebb65 (diff) | |
experiments with unlexer
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index e1e64e85c..4b1e5a8f3 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -122,7 +122,8 @@ updateShellState opts sh ((_,sgr,gr),rts) = do a' = ifNull Nothing (return . head) $ allAbstracts cgr0 abstr0 <- case abstract sh of Just a -> do - -- test that abstract is compatible + -- test that abstract is compatible --- unsafe exception for old? + --- if True oElem showOld opts then return () else testErr (maybe True (a==) a') ("expected abstract" +++ P.prt a) return $ Just a _ -> return a' |