json-to-type-4.0.0: src/JsonToType/CodeGen/Common.hs

module JsonToType.CodeGen.Common(writeRunningCommandComment) where

import System.Environment(getArgs, getProgName)
import System.IO

-- | Write a comment with urrently running command (for documentation of generated code.)
writeRunningCommandComment :: Handle -> String -> IO ()
writeRunningCommandComment outHandle commentString = do
  prog <- getProgName
  args <- getArgs
  hPutStrLn outHandle $ unwords $ commentString:prog:args