-- | An interpreter for the cloud DSL that uses the REST DLS.
cloudFtoRestM :: CloudFilesF a -> Free RestF a
cloudFtoRestM (SaveFile path bytes next) = do
  put path bytes
  return next

-- | For this case let's do something slightly more interesting.
cloudFtoRestM :: CloudFilesF a -> Free RestF a
cloudFtoRestM (SaveFile path bytes next) = do
  put path bytes
  return next

-- | For this case let's do something slightly more interesting.
cloudFtoRestM (SaveFile path bytes next) = do
  put path bytes
  return next

-- | For this case let's do something slightly more interesting.