Fix README.

fukamachi · Jul 29, 2015 · 918a260 · 918a260
1 parent b98910e
commit 918a260
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/README.markdown b/README.markdown
@@ -14,10 +14,10 @@
 
 (setf (ningle:route *app* "/login" :method :POST)
       #'(lambda (params)
-          (if (authorize (assoc "username" params :test #'string=)
-                         (assoc "password" params :test #'string=))
-            "Authorized!"
-            "Failed...Try again.")))
+          (if (authorize (cdr (assoc "username" params :test #'string=))
+                         (cdr (assoc "password" params :test #'string=)))
+              "Authorized!"
+              "Failed...Try again.")))
 
 (clack:clackup *app*)
 ```