basis: removing unnecessary method stack effects.

[factor.git] / basis / furnace / auth / basic / basic.factor

diff --git a/basis/furnace/auth/basic/basic.factor b/basis/furnace/auth/basic/basic.factor
index af5f34e3e3e5a961a9a1412d41a8b49fb9c93567..8081193a41a75bf9589e9fae303056a50d07d539 100644 (file)
--- a/basis/furnace/auth/basic/basic.factor
+++ b/basis/furnace/auth/basic/basic.factor
@@ -20,10 +20,10 @@ TUPLE: basic-auth-realm < realm ;
     401 "Invalid username or password" <trivial-response>
     [ "Basic realm=\"" % swap % "\"" % ] "" make "WWW-Authenticate" set-header ;
 
-M: basic-auth-realm login-required* ( description capabilities realm -- response )
+M: basic-auth-realm login-required*
     2nip name>> <401> ;
 
-M: basic-auth-realm logged-in-username ( realm -- uid )
+M: basic-auth-realm logged-in-username
     drop
     request get "authorization" header parse-basic-auth
     dup [ over check-login swap and ] [ 2drop f ] if ;