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

Merge pull request #899 from MaxGabriel/addHandlerArguments

Browse Source 
Have add-handler include the function arguments
This commit is contained in:
Michael Snoyman 2014-12-31 08:07:14 +02:00
commit 6c3152e150
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-bin/AddHandler.hs
View File

@ -107,7 +107,9 @@ mkHandler name pattern methods = unlines
, concat $ func : " :: " : map toArrow types ++ ["Handler Html"]
, concat
[ func
, " = error \"Not yet implemented: "
, " "
, concatMap toArgument types
, "= error \"Not yet implemented: "
, func
, "\""
]
@ -118,6 +120,7 @@ mkHandler name pattern methods = unlines
types = getTypes pattern
toArrow t = concat [t, " -> "]
toArgument t = concat [uncapitalize t, " "]
getTypes "" = []
getTypes ('/':rest) = getTypes rest
@ -126,3 +129,7 @@ mkHandler name pattern methods = unlines
where
(typ, rest') = break (== '/') rest
getTypes rest = getTypes $ dropWhile (/= '/') rest
uncapitalize :: String -> String
uncapitalize (x:xs) = toLower x : xs
uncapitalize "" = ""