hxbrief: Support exact matches
parent
f4cde7248a
commit
7105c6cd95
|
@ -171,6 +171,7 @@ matchPattern pat s = case break (== '*') pat of
|
||||||
then error "only one glob supported in patterns!"
|
then error "only one glob supported in patterns!"
|
||||||
else start `isPrefixOf` s && rest `isSuffixOf` s
|
else start `isPrefixOf` s && rest `isSuffixOf` s
|
||||||
("" , "") -> error "empty pattern"
|
("" , "") -> error "empty pattern"
|
||||||
|
(exact, "") -> exact == s
|
||||||
_ -> undefined
|
_ -> undefined
|
||||||
|
|
||||||
dispatchLine :: (StreamKind, String) -> StateT State IO ()
|
dispatchLine :: (StreamKind, String) -> StateT State IO ()
|
||||||
|
|
Loading…
Reference in New Issue