rhi/blog
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

bytestring hGetLine has moved

Browse source
This commit is contained in:
rhiannon morris 2024-09-15 17:39:52 +02:00
parent 0438ee590f
commit 3ae0cd7c52
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
blog-meta/lib/YAML.hs
View file

@ -6,7 +6,7 @@ import Data.Text (Text)
import qualified Data.Text as Text
import Misc
import Data.ByteString (ByteString)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as BS8
import qualified Data.ByteString.Lazy as LazyBS
import qualified System.IO as IO
@ -34,7 +34,7 @@ list = Sequence () untagged . map toYAML
-- @---@ and a @...@. throw an exception if there isn't one
readHeader :: FilePath -> IO (Node Pos)
readHeader file = IO.withFile file IO.ReadMode \h -> do
ln <- BS.hGetLine h
ln <- BS8.hGetLine h
if (ln /= "---") then
fail $ file <> ": no header"
else
@ -45,7 +45,7 @@ readHeader file = IO.withFile file IO.ReadMode \h -> do
linesUntil :: ByteString -> IO.Handle -> IO LazyBS.ByteString
linesUntil end h = go [] where
go acc = do
l <- BS.hGetLine h
l <- BS8.hGetLine h
if l == end then
return $ LazyBS.fromChunks $ reverse acc
else