{-# LANGUAGE TemplateHaskell #-}

-- | Separate module because TH.

module System.Process.Log
    (logProcessRun
    ,showProcessArgDebug)
    where

import           Control.Monad.Logger
import           Data.Monoid
import           Data.Text (Text)
import qualified Data.Text as T
import           Language.Haskell.TH

-- | Log running a process with its arguments, for debugging (-v).
logProcessRun :: Q Exp
logProcessRun =
    [|let f :: MonadLogger m => String -> [String] -> m ()
          f name args =
              $logDebug
                  ("Run process: " <> T.pack name <> " " <>
                   T.intercalate
                       " "
                       (map showProcessArgDebug args))
      in f|]

-- | Show a process arg including speechmarks when necessary. Just for
-- debugging purposes, not functionally important.
showProcessArgDebug :: [Char] -> Text
showProcessArgDebug x
    | any special x = T.pack (show x)
    | otherwise = T.pack x
  where special '"' = True
        special ' ' = True
        special _ = False