diff options
| author | Tamar Christina <tamar@zhox.com> | 2022-01-18 01:30:42 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-28 22:19:34 -0400 |
| commit | 905206d67854edbc89978bd554724f57dc8553c2 (patch) | |
| tree | 1e5bb9ba25985b0f3adca6194533ac52c4a83914 /libraries/ghci | |
| parent | 292e39713e2e17ca902e575d6a41a6f95ee444b2 (diff) | |
| download | haskell-905206d67854edbc89978bd554724f57dc8553c2.tar.gz | |
winio: add support to iserv.
Diffstat (limited to 'libraries/ghci')
| -rw-r--r-- | libraries/ghci/GHCi/Message.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/ghci/GHCi/Message.hs b/libraries/ghci/GHCi/Message.hs index 6b23f913cb..d660c10932 100644 --- a/libraries/ghci/GHCi/Message.hs +++ b/libraries/ghci/GHCi/Message.hs @@ -618,7 +618,7 @@ getBin h get leftover = go leftover (runGetIncremental get) go Nothing (Partial fun) = do -- putStrLn "before hGetSome" b <- B.hGetSome h (32*1024) - -- printf "hGetSome: %d\n" (B.length b) + -- putStrLn $ "hGetSome: " ++ show (B.length b) if B.null b then return Nothing else go Nothing (fun (Just b)) |