haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #412 from yogsototh/patch-1

Browse Source 
Added example on AddHandler to avoid confusion
This commit is contained in:
Michael Snoyman 2012-08-23 08:17:34 -07:00
commit dea07e8d4d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod/AddHandler.hs
View File

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