diff options
| -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) |