cloudFtoRestM (ListFiles path withFiles) = do
  content <- get path
  let files = splitOn " " content
  return (withFiles files)

-- | A decorator for the cloud DSL that adds logging.
--
cloudFtoRestM (ListFiles path withFiles) = do
  content <- get path
  let files = splitOn " " content
  return (withFiles files)

-- | A decorator for the cloud DSL that adds logging.
--
cloudFtoRestM (ListFiles path withFiles) = do
  content <- get path
  let files = splitOn " " content
  return (withFiles files)

-- | A decorator for the cloud DSL that adds logging.
--