hxbrief: Support exact matches

src-hxbrief/Main.hs

@@ -170,7 +170,8 @@ matchPattern pat s = case break (== '*') pat of
   (start, '*' : rest) -> if any (== '*') rest
     then error "only one glob supported in patterns!"
     else start `isPrefixOf` s && rest `isSuffixOf` s
-  ("", "") -> error "empty pattern"
+  (""   , "") -> error "empty pattern"
+  (exact, "") -> exact == s
   _           -> undefined
 
 dispatchLine :: (StreamKind, String) -> StateT State IO ()