Added example on AddHandler to avoid confusion

I used the add-handler command of Yesod, and I found the sentences were too ambiguous. In order to avoid confusion, I just added some examples.

ps: I tried to write "getCommentR" instead of just "GET" and it was transformed in getcommentrCommentR :(.

yesod/AddHandler.hs

@@ -29,10 +29,10 @@ addHandler = do
         c:_
             | isLower c -> error "Name must start with an upper case letter"
             | otherwise -> return ()
-    putStr "Enter route pattern: "
+    putStr "Enter route pattern (ex: /entry/#EntryId): "
     hFlush stdout
     pattern <- getLine
-    putStr "Enter space-separated list of methods: "
+    putStr "Enter space-separated list of methods (ex: GET POST): "
     hFlush stdout
     methods <- getLine