diff options
| author | Daniel Wagner <me@dmwit.com> | 2014-05-11 17:46:02 +0200 |
|---|---|---|
| committer | Daniel Wagner <me@dmwit.com> | 2014-05-11 17:46:02 +0200 |
| commit | 617a506399b0eac5a392743ee22a1a542dd04c79 (patch) | |
| tree | 6d265b36f57b0a87befff439844672a4b1151ff3 | |
| parent | 77983153f9e891f1199c8faa16dcb2a0e8bcbbb9 (diff) | |
| download | xmonad-617a506399b0eac5a392743ee22a1a542dd04c79.tar.gz xmonad-617a506399b0eac5a392743ee22a1a542dd04c79.tar.xz xmonad-617a506399b0eac5a392743ee22a1a542dd04c79.zip | |
use only POSIX-standard regexen in GenerateManpage
Ignore-this: d3138374770c540c5d21824af4dad821
darcs-hash:20140511154602-7469c-57fecfaeb8ac6a8dd86c8486eea772583fdc28be.gz
| -rw-r--r-- | util/GenerateManpage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |