diff options
| author | Meowyam <maryam@chilon.net> | 2021-07-06 15:00:17 +0800 |
|---|---|---|
| committer | Meowyam <maryam@chilon.net> | 2021-07-06 15:00:17 +0800 |
| commit | dff215504a71235d0aeb6852e64ef682cc095668 (patch) | |
| tree | 4a2bb0749063095ad2d4f97b6e52d05cadb88143 /src/compiler/GF/Command/CommonCommands.hs | |
| parent | 173ab96839212e042c38629d45bcd30cc6e111ca (diff) | |
resolves GrammaticalFramework/gf-core/#97, without l
Diffstat (limited to 'src/compiler/GF/Command/CommonCommands.hs')
| -rw-r--r-- | src/compiler/GF/Command/CommonCommands.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/compiler/GF/Command/CommonCommands.hs b/src/compiler/GF/Command/CommonCommands.hs index 578331e65..7ca2c0ee4 100644 --- a/src/compiler/GF/Command/CommonCommands.hs +++ b/src/compiler/GF/Command/CommonCommands.hs @@ -15,6 +15,7 @@ import GF.Command.Abstract --(isOpt,valStrOpts,prOpt) import GF.Text.Pretty import GF.Text.Transliterations import GF.Text.Lexing(stringOp,opInEnv) +import Data.Char (isSpace) import qualified PGF as H(showCId,showExpr,toATree,toTrie,Trie(..)) @@ -170,7 +171,8 @@ commonCommands = fmap (mapCommandExec liftSIO) $ Map.fromList [ restrictedSystem $ syst ++ " <" ++ tmpi ++ " >" ++ tmpo fmap fromString $ restricted $ readFile tmpo, -} - fmap (fromStrings . lines) . restricted . readShellProcess syst . unlines $ toStrings arg, + fmap (fromStrings . lines) . restricted . readShellProcess syst . unlines . map (dropWhile (=='\n')) $ toStrings $ arg, + flags = [ ("command","the system command applied to the argument") ], |