如何在Haskell中使用解析器来查找字符串中某些子字符串的位置？

import Text.Parsec

-- 定义一个解析器，用于查找指定的子字符串
findSubstring :: String -> Parsec String () Int
findSubstring substr = do
  -- 获取当前解析器的位置
  pos <- getPosition
  -- 查找子字符串
  let result = findIndex (isPrefixOf substr) (tails input)
  -- 如果找到了子字符串，则返回其起始位置
  case result of
    Just idx -> return (sourceColumn pos + idx)
    Nothing -> fail "Substring not found"

-- 测试代码
main :: IO ()
main = do
  let input = "Hello, world! This is a test string."
  -- 解析字符串，查找子字符串"world"
  case parse (findSubstring "world") "" input of
    -- 解析成功，打印结果
    Right pos -> putStrLn ("Substring found at position " ++ show pos)
    -- 解析失败，打印错误信息
    Left err -> putStrLn ("Error: " ++ show err)