module Extract where

data Comment = Comment
  { -- result fields
    file :: String,
    file_type :: FileType,
    -- match fields
    kind :: String,
    name :: String,
    text :: T.Text,
    start :: Position,
    end :: Position
  }

extractComments :: T.Text -> IO [Comment]
extractComments = do
  parer <- ts_parser_new