parsePOSIXTime ByteString conversion
Some easy (though tiny) speed wins. Sponsored-by: Luke T. Shumaker on Patreon
This commit is contained in:
parent
d3de3c28eb
commit
77e9781ae2
13 changed files with 22 additions and 16 deletions
|
@ -702,7 +702,7 @@ getStartTime u = do
|
|||
liftIO $ catchDefaultIO Nothing $ do
|
||||
timestamp <- modificationTime <$> R.getFileStatus f
|
||||
let fromstatus = Just (realToFrac timestamp)
|
||||
fromfile <- parsePOSIXTime <$> readFile (fromRawFilePath f)
|
||||
fromfile <- parsePOSIXTime <$> F.readFile' (toOsPath f)
|
||||
return $ if matchingtimestamp fromfile fromstatus
|
||||
then Just timestamp
|
||||
else Nothing
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue