From 617a506399b0eac5a392743ee22a1a542dd04c79 Mon Sep 17 00:00:00 2001 From: Daniel Wagner Date: Sun, 11 May 2014 17:46:02 +0200 Subject: use only POSIX-standard regexen in GenerateManpage Ignore-this: d3138374770c540c5d21824af4dad821 darcs-hash:20140511154602-7469c-57fecfaeb8ac6a8dd86c8486eea772583fdc28be.gz --- util/GenerateManpage.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'util') diff --git a/util/GenerateManpage.hs b/util/GenerateManpage.hs index 8e69af3..5b8b1b7 100644 --- a/util/GenerateManpage.hs +++ b/util/GenerateManpage.hs @@ -43,7 +43,7 @@ trim = reverse . dropWhile isSpace . reverse . dropWhile isSpace guessKeys line = concat $ intersperse "-" (modifiers ++ [map toLower key]) where modifiers = map (!!1) (line =~ "(mod|shift|control)Mask") - (_, _, _, [key]) = line =~ "xK_(\\w+)" :: (String, String, String, [String]) + (_, _, _, [key]) = line =~ "xK_([_[:alnum:]]+)" :: (String, String, String, [String]) binding :: [String] -> (String, String) binding [ _, bindingLine, "", desc ] = (guessKeys bindingLine, desc) -- cgit v1.2.3