interpRestIO (Put path bytes withResponse) = do
  putStrLn $ "I should PUT " ++ path ++ " " ++ bytes
  result <- return "mocked PUT response"
  return (withResponse result)
interpRestIO (Put path bytes withResponse) = do
  putStrLn $ "I should PUT " ++ path ++ " " ++ bytes
  result <- return "mocked PUT response"
  return (withResponse result)
interpRestIO (Put path bytes withResponse) = do
  putStrLn $ "I should PUT " ++ path ++ " " ++ bytes
  result <- return "mocked PUT response"
  return (withResponse result)