ghcide/test/preprocessor/Main.hs

11 lines
205 B
Haskell
Raw Normal View History

module Main(main) where
import System.Environment
main :: IO ()
main = do
_:input:output:_ <- getArgs
let f = map (\x -> if x == 'x' then 'y' else x)
writeFile output . f =<< readFile input