Wrapper.hs

module Main where

import System.Environment
import System.IO

main :: IO ()
main = do
    withFile
        "/tmp/stdin.txt"
        AppendMode
        ( \handle ->
            do
                hPutStrLn handle "----"
                args <- getArgs
                progName <- getProgName
                hPutStrLn handle $ progName <> " " <> unwords args
                stdIn <- getContents
                hPutStrLn handle stdIn
        )