Permalink
Browse files

Redirect to login at /interpreter

  • Loading branch information...
1 parent 2c06473 commit 7ab876501714f65f53464bc81579390d92938957 @norm2782 norm2782 committed Apr 5, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Application.hs
View
@@ -171,7 +171,7 @@ logoutH = do
redirect "/"
interpreterH :: AppHandler ()
-interpreterH = restrict forbiddenH $ blaze (template interpreterHTML)
+interpreterH = restrict loginRedir $ blaze (template interpreterHTML)
runInterpreterH :: AppHandler ()
runInterpreterH = restrict forbiddenH $ do

0 comments on commit 7ab8765

Please sign in to comment.