web: don't use wai-handler-launch with yesod devel
This commit is contained in:
		
							parent
							
								
									0f13d40ca5
								
							
						
					
					
						commit
						9148bd8e8c
					
				| @ -1,7 +1,6 @@ | ||||
| {-# LANGUAGE PackageImports #-} | ||||
| import "hledger-web" Application (getApplicationDev) | ||||
| import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort) | ||||
| import Network.Wai.Handler.Launch (run, runUrl, runUrlPort) | ||||
| import Control.Concurrent (forkIO) | ||||
| import System.Directory (doesFileExist, removeFile) | ||||
| import System.Exit (exitSuccess) | ||||
| @ -12,10 +11,9 @@ main = do | ||||
|     putStrLn "Starting devel application" | ||||
|     (port, app) <- getApplicationDev | ||||
|     forkIO $ | ||||
|         -- runSettings defaultSettings | ||||
|         --   { settingsPort = port | ||||
|         --   } app | ||||
|         run app | ||||
|         runSettings defaultSettings | ||||
|           { settingsPort = port | ||||
|           } app | ||||
|     loop | ||||
| 
 | ||||
| loop :: IO () | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user