Merge pull request #412 from yogsototh/patch-1

Added example on AddHandler to avoid confusion
This commit is contained in:
Michael Snoyman 2012-08-23 08:17:34 -07:00
commit dea07e8d4d

View File

@ -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