diff options
| author | krangelov <kr.angelov@gmail.com> | 2019-09-20 16:15:28 +0200 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2019-09-20 16:15:28 +0200 |
| commit | 30eef61f0a400d6b9ec77721620e13b8132a9c2c (patch) | |
| tree | 2d7db8cc4ff7fc0bc781e3dcb202d493d4706827 /src/compiler/GF/Interactive.hs | |
| parent | 29662350dcdb350479576dfa099037fd71debc1a (diff) | |
more dead code
Diffstat (limited to 'src/compiler/GF/Interactive.hs')
| -rw-r--r-- | src/compiler/GF/Interactive.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/compiler/GF/Interactive.hs b/src/compiler/GF/Interactive.hs index 7eb873fbc..b68a1bc2f 100644 --- a/src/compiler/GF/Interactive.hs +++ b/src/compiler/GF/Interactive.hs @@ -12,7 +12,7 @@ import GF.Command.CommandInfo import GF.Command.Help(helpCommand) import GF.Command.Abstract import GF.Command.Parse(readCommandLine,pCommand) -import GF.Data.Operations (Err(..),done) +import GF.Data.Operations (Err(..)) import GF.Data.Utilities(whenM,repeatM) import GF.Grammar hiding (Ident,isPrefixOf) import GF.Infra.UseIO(ioErrorText,putStrLnE) @@ -162,7 +162,7 @@ execute1' s0 = do execute . lines =<< lift (restricted (readFile w)) continue where - execute [] = done + execute [] = return () execute (line:lines) = whenM (execute1' line) (execute lines) execute_history _ = @@ -287,8 +287,8 @@ importInEnv opts files = pgf1 <- importGrammar pgf0 opts' files if (verbAtLeast opts Normal) then putStrLnFlush $ - unwords $ "\nLanguages:" : map showCId (languages pgf1) - else done + unwords $ "\nLanguages:" : map showCId (languages pgf1) + else return () return pgf1 tryGetLine = do |