Improved error message formatting.

lfe-deprecated · Apr 9, 2016 · e565958 · e565958
1 parent 567f8f3
commit e565958
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/sample-app-routes.lfe b/src/sample-app-routes.lfe
@@ -14,10 +14,10 @@
   ;; When nothing matches, do this
   ('NOTFOUND
    (let* ((joined-path (++ "/" (string:join path "/")))
-          (msg (++ "Unmatched route!~n~n"
-                   "Path-info: ~p~n"
-                   "joined path: ~p~n"
-                   "arg-data: ~p~n~n"))
+          (msg (++ "Unmatched route!~n"
+                   "\tPath info: ~p~n"
+                   "\tJoined path: ~p~n"
+                   "\tArg data: ~p"))
           (msg-args `(,path ,joined-path ,arg-data)))
     (logjam:error msg msg-args)
     (sample-app-content:four-oh-four