You need to add "http://" to the URI. This works in my machine:
routes = [("/", redirect "http://www.google.com")]
You can also use ifTop
:
site :: Snap ()
site = ifTop (redirect "http://www.google.com) <|>
route routes
Where routes
contains the remaining routes of your site.