src/Internal/Regex.hs · typeable/cabal2nix

git.iko.soy/typeable/cabal2nix

on d3bb1da help sign in

12 lines 305 B history raw

1module Internal.Regex

2 ( module Text.Regex.Posix

3 , regsubmatch

4 )

5 where

7import Text.Regex.Posix

9regsubmatch :: String -> String -> [String]

10regsubmatch buf patt = let (_,_,_,x) = f in x

11 where f :: (String,String,String,[String])

12 f = match (makeRegexOpts compExtended execBlank patt) buf