readStdin :: World m => m (FilePath, Text)
readStdin =
    (,) "<STDIN>" <$> World.getStdin
readStdin :: World m => m (FilePath, Text)
readStdin =
    (,) "<STDIN>" <$> World.getStdin
readStdin =
    (,) "<STDIN>" <$> World.getStdin