blob: e351898dd8d335420336f377d2dd6c4837665169 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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
|
