Commits

Steve Losh committed 540b3d6

Remove unnecessary syntax.

  • Participants
  • Parent commits 2b3adcf

Comments (0)

Files changed (1)

src/newseasons/views/main.clj

 (defn unique-shows [seasons]
   (unique-by (sort-maps-by seasons "releaseDate") "artistId"))
 
+
 ; Authentication --------------------------------------------------------------
 (defn force-login []
   (flash! "Please log in to view that page!")
 
 
 ; Home ------------------------------------------------------------------------
-(defpage [:get "/"] []
+(defpage "/" []
   (if-let [email (sess/get :email)]
     (resp/redirect (str "/" email))
     (t/home)))
 
 
 ; Search ----------------------------------------------------------------------
-(defpage [:get "/search"] {:keys [query]}
+(defpage "/search" {:keys [query]}
   (login-required
     (if (empty? query)
       (do (flash! "Please enter something to search for.")
 
 
 ; Change Password -------------------------------------------------------------
-(defpage [:get "/password"] []
+(defpage "/password" []
   (login-required
     (t/password)))
 
 
 
 ; Delete Account --------------------------------------------------------------
-(defpage [:get "/delete-account"] []
+(defpage "/delete-account" []
   (login-required
     (t/delete-account)))