fork download
  1.  
  2. import System.Environment (getArgs)
  3. import System.IO
  4.  
  5. main = do
  6. [filepath,text] <- getArgs
  7. write filepath text
  8.  
  9. write :: FilePath -> String -> IO ()
  10. write fp str = withFile fp WriteMode $ \h -> hPutStr h str
  11.  
Runtime error #stdin #stdout 0.02s 3604KB
stdin
Standard input is empty
stdout
Standard output is empty