-- | Handler for the `PutFile` endpoint
putFile :: Server PutFile
putFile file contents = liftIO (Text.writeFile file contents)
putFile :: Server PutFile
putFile file contents = liftIO (Text.writeFile file contents)
putFile file contents = liftIO (Text.writeFile file contents)