如何调用这函数?

sw2wolf

import Text.Regex.Posix

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])

对正则表达式不熟悉, 参数line不知道应该是什么样?

sw2wolf

我这样试不对:

"((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)" =~ "(mod|shift|control)Mask"

<interactive>:1:0:
    No instance for (Text.Regex.Base.RegexLike.RegexContext
                       Regex [Char] target)
      arising from a use of `=~' at <interactive>:1:0-96
    Possible fix:
      add an instance declaration for
      (Text.Regex.Base.RegexLike.RegexContext Regex [Char] target)
    In the expression:
          "((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)"
        =~
          "(mod|shift|control)Mask"
    In the definition of `it':
        it = "((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)"
           =~
             "(mod|shift|control)Mask"