540b3d6bc2bc

Remove unnecessary syntax.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 23 Oct 2011 20:22:13 -0400
parents 2b3adcffb942
children fcd5abfaeff4
branches/tags (none)
files src/newseasons/views/main.clj

Changes

diff -r 2b3adcffb942 -r 540b3d6bc2bc src/newseasons/views/main.clj
--- a/src/newseasons/views/main.clj	Wed Oct 05 23:17:39 2011 -0400
+++ b/src/newseasons/views/main.clj	Sun Oct 23 20:22:13 2011 -0400
@@ -45,6 +45,7 @@
 (defn unique-shows [seasons]
   (unique-by (sort-maps-by seasons "releaseDate") "artistId"))
 
+
 ; Authentication --------------------------------------------------------------
 (defn force-login []
   (flash! "Please log in to view that page!")
@@ -77,7 +78,7 @@
 
 
 ; Home ------------------------------------------------------------------------
-(defpage [:get "/"] []
+(defpage "/" []
   (if-let [email (sess/get :email)]
     (resp/redirect (str "/" email))
     (t/home)))
@@ -98,7 +99,7 @@
 
 
 ; Search ----------------------------------------------------------------------
-(defpage [:get "/search"] {:keys [query]}
+(defpage "/search" {:keys [query]}
   (login-required
     (if (empty? query)
       (do (flash! "Please enter something to search for.")
@@ -130,7 +131,7 @@
 
 
 ; Change Password -------------------------------------------------------------
-(defpage [:get "/password"] []
+(defpage "/password" []
   (login-required
     (t/password)))
 
@@ -154,7 +155,7 @@
 
 
 ; Delete Account --------------------------------------------------------------
-(defpage [:get "/delete-account"] []
+(defpage "/delete-account" []
   (login-required
     (t/delete-account)))