hexagoxel
/
hxtools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hxbrief: Support exact matches

master
Lennart Spitzner 2022-03-08 19:59:40 +00:00
parent f4cde7248a
commit 7105c6cd95
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src-hxbrief/Main.hs
View File

@ -170,8 +170,9 @@ matchPattern pat s = case break (== '*') pat of
(start, '*' : rest) -> if any (== '*') rest (start, '*' : rest) -> if any (== '*') rest
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"
_ -> undefined (exact, "") -> exact == s
_ -> undefined
dispatchLine :: (StreamKind, String) -> StateT State IO () dispatchLine :: (StreamKind, String) -> StateT State IO ()
dispatchLine line@(kind, str) = do dispatchLine line@(kind, str) = do