diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-07 13:41:11 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-07 18:27:33 +0200 |
commit | 409e9dc95aa9f17770f21d11a65ec839da699f16 (patch) | |
tree | 47799d2cca2d5a9fc4d9325ab4ffc6f3aaa47cee /src/Main.hs | |
parent | bc688a7abf7f0d04429885084ed14bdf32b2d087 (diff) |
Regex expansion
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index b19796a..28b88ae 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -14,8 +14,6 @@ import qualified Data.Text as T import qualified Data.Text.IO as T import Text.Read (readMaybe) -import Text.Regex.TDFA -import Text.Regex.TDFA.Text import System.Console.GetOpt import System.Directory @@ -238,7 +236,7 @@ spawnOn target pname killWith cmd = do return process tryMatch :: Regex -> [Text] -> Maybe ((Text, [Text]), [Text]) -tryMatch re (x:xs) | Right (Just (_, _, _, capture)) <- regexec re x = Just ((x, capture), xs) +tryMatch re (x:xs) | Right (Just (_, _, _, capture)) <- regexMatch re x = Just ((x, capture), xs) | otherwise = fmap (x:) <$> tryMatch re xs tryMatch _ [] = Nothing |