improving tests; wip

2014-01-05 22:46:42 +01:00
parent f39ae0a593
commit 5e6e7fb5c7
2 changed files with 26 additions and 24 deletions
@@ -28,8 +28,8 @@
  ([success message & params]
   (assoc (create-response success) :message (apply format message params))))

-(defn- getURL [noteID description]
-  (if (description)
+(defn- getURL [noteID & description]
+  (if description
    (str domain (storage/get-short-url noteID))
    (str domain (sreplace noteID #" " "/"))))