From d53e1713c7860de8a5c256ffe0eed81d5388ae41 Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Fri, 2 Jul 2021 16:08:34 +0800
Subject: [PATCH] resolves GrammaticalFramework/gf-core/#97

---
 src/compiler/GF/Command/CommonCommands.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/compiler/GF/Command/CommonCommands.hs b/src/compiler/GF/Command/CommonCommands.hs
index 0b698e79c..578331e65 100644
--- a/src/compiler/GF/Command/CommonCommands.hs
+++ b/src/compiler/GF/Command/CommonCommands.hs
@@ -170,10 +170,13 @@ commonCommands = fmap (mapCommandExec liftSIO) $ Map.fromList [
        restrictedSystem $ syst ++ " <" ++ tmpi ++ " >" ++ tmpo
        fmap fromString $ restricted $ readFile tmpo,
        -}
-       fmap fromString . restricted . readShellProcess syst $ toString arg,
+       fmap (fromStrings . lines) . restricted . readShellProcess syst . unlines $ toStrings arg,
      flags = [
        ("command","the system command applied to the argument")
        ],
+     options = [
+       ("lines","preserve input lines, and return output as a list of lines")
+       ],
      examples = [
        mkEx "gt | l | ? wc  -- generate trees, linearize, and count words"
        ]