backslash.hs

{-# LANGUAGE QuasiQuotes #-}

module Main where
import Text.Regex.PCRE.Heavy (gsub, re, Regex)

ignore_comments :: [Regex] -> [String]
ignore_comments rs =
    map (\r -> gsub r ("":: String) ("/*test commentary*/ abc test")) rs

main :: IO ()
main = do
    mapM_ putStrLn $ ignore_comments [ [re|/|], [re|\/|], [re|\\/|], [re|\\\/|], [re|\\\\/|], [re|\\\\\/|], [re|\\\\\\/|], [re|\\\\\\\/|]   ]