From 5fb842fa52678d780cae6d19586385f8d22266da Mon Sep 17 00:00:00 2001
From: Ranjeet Kumar Ranjan <ranjeetr@composewell.com>
Date: Wed, 14 Jun 2023 09:54:47 +0530
Subject: [PATCH] Update doctest imports and minor haddock docs

---
 src/DocTestCommand.hs                   | 6 ++++--
 src/DocTestProcess.hs                   | 2 ++
 src/Streamly/Internal/System/Command.hs | 4 ++--
 3 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/DocTestCommand.hs b/src/DocTestCommand.hs
index 6d62916..73c2f82 100644
--- a/src/DocTestCommand.hs
+++ b/src/DocTestCommand.hs
@@ -5,14 +5,16 @@
 >>> import Data.Char (toUpper)
 >>> import Data.Function ((&))
 >>> import Streamly.Unicode.String (str)
->>> import qualified Streamly.Data.Array as Array
 >>> import qualified Streamly.Console.Stdio as Stdio
+>>> import qualified Streamly.Data.Array as Array
 >>> import qualified Streamly.Data.Fold as Fold
 >>> import qualified Streamly.Data.Stream.Prelude as Stream
 >>> import qualified Streamly.System.Command as Command
 >>> import qualified Streamly.Unicode.Stream as Unicode
 
->>> import qualified Streamly.Internal.System.Process as Process
+For APIs that have not been released yet.
+
 >>> import qualified Streamly.Internal.Console.Stdio as Stdio
 >>> import qualified Streamly.Internal.FileSystem.Dir as Dir
+>>> import qualified Streamly.Internal.System.Process as Process
 -}
diff --git a/src/DocTestProcess.hs b/src/DocTestProcess.hs
index dc1c53f..3db334e 100644
--- a/src/DocTestProcess.hs
+++ b/src/DocTestProcess.hs
@@ -11,6 +11,8 @@
 >>> import qualified Streamly.System.Process as Process
 >>> import qualified Streamly.Unicode.Stream as Unicode
 
+For APIs that have not been released yet.
+
 >>> import qualified Streamly.Internal.Console.Stdio as Stdio
 >>> import qualified Streamly.Internal.Data.Stream as Stream
 >>> import qualified Streamly.Internal.FileSystem.Dir as Dir
diff --git a/src/Streamly/Internal/System/Command.hs b/src/Streamly/Internal/System/Command.hs
index ead616a..532e15e 100644
--- a/src/Streamly/Internal/System/Command.hs
+++ b/src/Streamly/Internal/System/Command.hs
@@ -72,8 +72,8 @@ quotedWord =
                 '\'' -> Just x
                 _ -> Nothing
         -- Inside ",
-        -- * \\ is translated to \
-        -- * \" is translated to "
+        -- \\ is translated to \
+        -- \" is translated to "
         trEsc '"' x =
             case x of
                 '\\' -> Just '\\'