Appease Hackage

This commit is contained in:
Michael Snoyman 2020-06-29 05:36:16 +03:00
parent 4bfca1bd86
commit f5a6ccb363
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
2 changed files with 14 additions and 13 deletions

View File

@ -62,18 +62,18 @@ addHandlerInteractive :: IO ()
addHandlerInteractive = do
cabal <- getCabal
let routeInput = do
putStr "Name of route (without trailing R): "
hFlush stdout
name <- getLine
checked <- checkRoute name cabal
case checked of
Left err@EmptyRoute -> (error . show) err
Left err@RouteCaseError -> print err >> routeInput
Left err@(RouteExists _) -> do
print err
putStrLn "Try another name or leave blank to exit"
routeInput
Right p -> return p
putStr "Name of route (without trailing R): "
hFlush stdout
name <- getLine
checked <- checkRoute name cabal
case checked of
Left err@EmptyRoute -> (error . show) err
Left err@RouteCaseError -> print err >> routeInput
Left err@(RouteExists _) -> do
print err
putStrLn "Try another name or leave blank to exit"
routeInput
Right p -> return p
routePair <- routeInput
putStr "Enter route pattern (ex: /entry/#EntryId): "

View File

@ -8,7 +8,7 @@ synopsis: The yesod helper executable.
description: See README.md for more information
category: Web, Yesod
stability: Stable
cabal-version: >= 1.6
cabal-version: >= 1.10
build-type: Simple
homepage: http://www.yesodweb.com/
@ -19,6 +19,7 @@ extra-source-files:
*.pem
executable yesod
default-language: Haskell2010
if os(windows)
cpp-options: -DWINDOWS
if os(openbsd)