message :: Options -> String -> IO ()
message opts str = putStrLn $ messagePrefix ++ str
  where
    messagePrefix = if (optRemove opts == OptScript) then "echo " else ""


--
-- Primitive File Operations
--
message :: Options -> String -> IO ()
message opts str = putStrLn $ messagePrefix ++ str
  where
    messagePrefix = if (optRemove opts == OptScript) then "echo " else ""


--
-- Primitive File Operations
--
message opts str = putStrLn $ messagePrefix ++ str
  where
    messagePrefix = if (optRemove opts == OptScript) then "echo " else ""


--
-- Primitive File Operations
--