や友達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>"