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

Restores prompts to not having a final newline

Browse Source 
Also, since "done" isn't a prompt, just uses putStr for that message. It's got
an extra newline now, but imho that looks nicer anyway.
This commit is contained in:
Bryan Richter 2012-01-31 19:35:07 -08:00
parent a0f8c45b4f
commit 53a54fcf03
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/Scaffolding/Scaffolder.hs
View File

@ -36,7 +36,7 @@ data Backend = Sqlite | Postgresql | Mysql | MongoDB | Tiny
deriving (Eq, Read, Show, Enum, Bounded) deriving (Eq, Read, Show, Enum, Bounded)
puts :: String -> IO () puts :: String -> IO ()
puts s = putStr s >> hFlush stdout puts s = putStr (init s) >> hFlush stdout
backends :: [Backend] backends :: [Backend]
backends = [minBound .. maxBound] backends = [minBound .. maxBound]
@ -201,4 +201,4 @@ scaffold = do
$(runIO (S.readFile "scaffold/config/robots.txt.cg") >>= \bs -> do $(runIO (S.readFile "scaffold/config/robots.txt.cg") >>= \bs -> do
[|S.pack $(return $ LitE $ StringL $ S.unpack bs)|]) [|S.pack $(return $ LitE $ StringL $ S.unpack bs)|])
puts $(codegenDir "input" "done") putStr $(codegenDir "input" "done")