strict bytestring encoders and decoders
Only had lazy ones before. Already sped up a few parts of the code.
This commit is contained in:
parent
9cc6d5549b
commit
b3c69eaaf8
14 changed files with 41 additions and 25 deletions
|
@ -207,7 +207,7 @@ catTree h treeref = go <$> catObjectDetails h treeref
|
|||
dropsha = L.drop 21
|
||||
|
||||
parsemodefile b =
|
||||
let (modestr, file) = separate (== ' ') (decodeBS b)
|
||||
let (modestr, file) = separate (== ' ') (decodeBL b)
|
||||
in (file, readmode modestr)
|
||||
readmode = fromMaybe 0 . fmap fst . headMaybe . readOct
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue