readFromFile :: World m => (FilePath -> StateT s m ()) -> FilePath -> StateT s m (FilePath, Text)
readFromFile onProcessingFile filePath =
    onProcessingFile filePath
        *> lift (World.readUtf8FileWithPath filePath)
readFromFile :: World m => (FilePath -> StateT s m ()) -> FilePath -> StateT s m (FilePath, Text)
readFromFile onProcessingFile filePath =
    onProcessingFile filePath
        *> lift (World.readUtf8FileWithPath filePath)
readFromFile onProcessingFile filePath =
    onProcessingFile filePath
        *> lift (World.readUtf8FileWithPath filePath)