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

Merge pull request #922 from MaxGabriel/fixAddHandlerNewlines

Browse Source 
Fix add-handler putting two routes on one line
This commit is contained in:
Michael Snoyman 2015-02-04 18:49:23 +02:00
commit f3fea0a7bd
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-bin/AddHandler.hs
View File

@ -83,17 +83,19 @@ fixCabal name =
(spaces, x') = span isSpace x (spaces, x') = span isSpace x
fixRoutes :: String -> String -> String -> String -> String fixRoutes :: String -> String -> String -> String -> String
fixRoutes name pattern methods = fixRoutes name pattern methods fileContents =
(++ l) fileContents ++ l
where where
l = concat l = concat
[ pattern [ startingCharacter
, pattern
, " " , " "
, name , name
, "R " , "R "
, methods , methods
, "\n" , "\n"
] ]
startingCharacter = if "\n" `isSuffixOf` fileContents then "" else "\n"
mkHandler :: String -> String -> String -> String mkHandler :: String -> String -> String -> String
mkHandler name pattern methods = unlines mkHandler name pattern methods = unlines