X-Git-Url: http://nitlanguage.org

diff --git a/lib/nitcorn/examples/src/htcpcp_server.nit b/lib/nitcorn/examples/src/htcpcp_server.nit
index 37fa87e..d58dcca 100644
--- a/lib/nitcorn/examples/src/htcpcp_server.nit
+++ b/lib/nitcorn/examples/src/htcpcp_server.nit
@@ -17,22 +17,26 @@
 # Hyper Text Coffee Pot Control Protocol
 
 # A server that implements HTCPCP. At the moment there are no additions.
-module htcpcp_server
+module htcpcp_server is example
 
 import nitcorn
 
+# Nitcorn Action used to answer requests.
 class HTCPCPAction
 	super Action
+
+	# Brewing status.
 	var brewing = false
-  var is_teapot = false
+
+	# Teapot status.
+	var is_teapot = false
 
 	redef fun answer(http_request, turi) do
 		var message: String
 		var method = http_request.method
-		var headers = http_request.header
 		var response: HttpResponse
 
-		if is_teapot == true then
+		if is_teapot then
 			response = new HttpResponse(418)
 			response.body = "I'm a teapot!\n"
 			response.header["Content-Type"] = "text"
@@ -77,10 +81,13 @@ class HTCPCPAction
 	end
 end
 
-
+# Nitcorn server.
 class HTCPCServer
+
+	# Port to listen to.
 	var port: Int
 
+	# Start listening.
 	fun run do
 		var vh = new VirtualHost("localhost:{port}")
 		vh.routes.add new Route("/", new HTCPCPAction)