regexqq - EXAMPLES
----------------------------------------------------------------------------------------

-- Here is a pasteable-into-ghci version of the below:

:m + Text.Regex.PCRE.QQ
[$rx|([aeiou]).*(er|ing|tion)([\.,!\?]*)$|] "helloing.!?!?!"
[$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
tail `fmap` [$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
return . tail =<< [$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
maybe [] tail $ [$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
maybe [] tail $ [$rx|^([+-])?([0-9]+)\.([0-9]+)(.*)$|] (show (negate pi) ++ "asdx")

----------------------------------------------------------------------------------------

ghci> :m + Text.Regex.PCRE.QQ

ghci> [$rx|([aeiou]).*(er|ing|tion)([\.,!\?]*)$|] "helloing.!?!?!"
Just ["elloing.!?!?!","e","ing",".!?!?!"]

ghci> [$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
Just ["-3.141592653589793","-","3","141592653589793"]

ghci> tail `fmap` [$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
Just ["-","3","141592653589793"]
ghci> return . tail =<< [$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
Just ["-","3","141592653589793"]

ghci> maybe [] tail $ [$rx|^([+-])?([0-9]+)\.([0-9]+)|] (show $ negate pi)
["-","3","141592653589793"]

ghci> maybe [] tail $ [$rx|^([+-])?([0-9]+)\.([0-9]+)(.*)$|] (show (negate pi) ++ "asdx")
["-","3","141592653589793","asdx"]

----------------------------------------------------------------------------------------