put :: Path -> Bytes -> Free RestF Bytes
put path bytes = liftF $ Put path bytes id
put :: Path -> Bytes -> Free RestF Bytes
put path bytes = liftF $ Put path bytes id
put path bytes = liftF $ Put path bytes id