makePatch :: FilePath -> IO ()
makePatch file = do
    putStrLn $ "[PFQ] patching " ++ file
    src <- readFile file
    renameFile file $ file ++ ".omatic"
    writeFile file $ "#include " ++ show pfq_kcompat ++ "\n" ++ src
makePatch :: FilePath -> IO ()
makePatch file = do
    putStrLn $ "[PFQ] patching " ++ file
    src <- readFile file
    renameFile file $ file ++ ".omatic"
    writeFile file $ "#include " ++ show pfq_kcompat ++ "\n" ++ src
makePatch file = do
    putStrLn $ "[PFQ] patching " ++ file
    src <- readFile file
    renameFile file $ file ++ ".omatic"
    writeFile file $ "#include " ++ show pfq_kcompat ++ "\n" ++ src