tryPatch :: FilePath -> IO ()
tryPatch file =
    readFile file >>= \c ->
        when (c =~ (regexFunCall "netif_rx" 1 ++ "|" ++ regexFunCall "netif_receive_skb" 1 ++ "|" ++ regexFunCall "napi_gro_receive" 2)) $
            doesFileExist (file ++ ".omatic") >>= \orig ->
                if orig
                then putStrLn $ "[PFQ] " ++ file ++ " is already patched :)"
                else makePatch file
tryPatch :: FilePath -> IO ()
tryPatch file =
    readFile file >>= \c ->
        when (c =~ (regexFunCall "netif_rx" 1 ++ "|" ++ regexFunCall "netif_receive_skb" 1 ++ "|" ++ regexFunCall "napi_gro_receive" 2)) $
            doesFileExist (file ++ ".omatic") >>= \orig ->
                if orig
                then putStrLn $ "[PFQ] " ++ file ++ " is already patched :)"
                else makePatch file
tryPatch file =
    readFile file >>= \c ->
        when (c =~ (regexFunCall "netif_rx" 1 ++ "|" ++ regexFunCall "netif_receive_skb" 1 ++ "|" ++ regexFunCall "napi_gro_receive" 2)) $
            doesFileExist (file ++ ".omatic") >>= \orig ->
                if orig
                then putStrLn $ "[PFQ] " ++ file ++ " is already patched :)"
                else makePatch file