哈斯克尔hGetLines实施

Question

有谁知道我在哪里可以找到

hGetLine :: Handle -> IO Text 

功能的实现？我必须在具有多个子任务的haskell中实现一个HTTP服务器。第一种是写

hGetLines :: Handle -> IO [Text] 

功能读取一切从IO通道，直到第一空行和线被返回作为文本的列表的执行。

Answer 1

你不需要知道如何hGetLine实施要做到这一点：

hGetLines :: Handle -> IO [Text] 
hGetLines h = do 
    line <- hGetLine h 
    if null line 
    then return [] 
    else do 
     lines <- hGetLines h 
     return (line:lines) 

Answer 2

1. 找到它Hackage：https://hackage.haskell.org/package/base-4.6.0.1/docs/System-IO.html#v:hGetLine

2. 点击 “来源” 链接：https://hackage.haskell.org/package/base-4.6.0.1/docs/src/GHC-IO-Handle-Text.html#hGetLine

3. 阅读来源：

   hGetLine h = 
       wantReadableHandle_ "hGetLine" h $ \ handle_ -> do 
       hGetLineBuffered handle_ 
   

但是如果你想写一个hGetLines函数，你不需要知道hGetLine已实施。您可以在执行hGetLines时仅使用hGetLine。