Appease Hackage

yesod-bin/AddHandler.hs

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

yesod-bin/yesod-bin.cabal

@@ -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)