ParsecでtakeWhile

string :: String -> CharParser st String
の配列版が欲しかったので作ってみた

takeWhileString :: [String] -> CharParser st String
takeWhileString [] = unexpected "takeWhileStrng"
takeWhileString (x:xs) = try(string x) <|> takeWhileString xs

これで[String]から最初にマッチした文字列のパーサが返ってくる。

# takeWhileじゃなくて head $ takeWhile かな？まだまだ基本操作がおぼつかない・・。