や友達import Text.Regex.Base.RegexLike
にアクセスするために必要な場合があります。makeRegexOpts
extractToken body = match regex body where
regex = makeRegexOpts (defaultCompOpt - compNewline) defaultExecOpt
"<textarea[^>]*id=\"wpTextbox1\"[^>]*>(.*)</textarea>"
は であるため、次Text.Regex.Posix
のdefaultCompOpt = compExtended + compNewline
ように同等に機能します。
extractToken body = match regex body where
regex = makeRegexOpts compExtended defaultExecOpt
"<textarea[^>]*id=\"wpTextbox1\"[^>]*>(.*)</textarea>"
最初のグループだけを取り出すには、 の他のインスタンスのいずれかを使用しますRegexLike
。1つの可能性は
extractToken body = head groups where
(preMatch, inMatch, postMatch, groups) =
match regex body :: (String, String, String, [String])
regex = makeRegexOpts compExtended defaultExecOpt
"<textarea[^>]*id=\"wpTextbox1\"[^>]*>(.*)</textarea>"