web: fix stack ghci duplicate main error
This commit is contained in:
		
							parent
							
								
									8839136f02
								
							
						
					
					
						commit
						b4a72da355
					
				| @ -35,8 +35,8 @@ import Hledger.Cli hiding (progname,prognameandversion) | |||||||
| import Hledger.Web.WebOptions | import Hledger.Web.WebOptions | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
| main :: IO () | hledgerWebMain :: IO () | ||||||
| main = do | hledgerWebMain = do | ||||||
|   opts <- getHledgerWebOpts |   opts <- getHledgerWebOpts | ||||||
|   when (debug_ (cliopts_ opts) > 0) $ printf "%s\n" prognameandversion >> printf "opts: %s\n" (show opts) |   when (debug_ (cliopts_ opts) > 0) $ printf "%s\n" prognameandversion >> printf "opts: %s\n" (show opts) | ||||||
|   runWith opts |   runWith opts | ||||||
|  | |||||||
| @ -1,9 +1,9 @@ | |||||||
| import Prelude              (IO) | import Prelude              (IO) | ||||||
| 
 | 
 | ||||||
| import qualified Hledger.Web.Main | import Hledger.Web.Main | ||||||
| 
 | 
 | ||||||
| main :: IO () | main :: IO () | ||||||
| main = Hledger.Web.Main.main | main = hledgerWebMain | ||||||
| 
 | 
 | ||||||
| -- more standard yesod main, for reloading experiments | -- more standard yesod main, for reloading experiments | ||||||
| 
 | 
 | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user