squash remaining build warnings on windows

This commit is contained in:
Joey Hess 2020-11-24 12:35:09 -04:00
parent e59cec1755
commit dce0781391
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 10 additions and 9 deletions

View file

@ -36,9 +36,6 @@ import Blaze.ByteString.Builder (Builder)
import Control.Arrow ((***))
import Control.Concurrent
localhost :: HostName
localhost = "localhost"
{- Builds a command to use to start or open a web browser showing an url. -}
browserProc :: String -> CreateProcess
#ifdef darwin_HOST_OS
@ -105,6 +102,7 @@ getSocket h = do
_ -> error "unable to bind to a local socket"
where
hostname = fromMaybe localhost h
localhost = "localhost"
hints = defaultHints { addrSocketType = Stream }
{- Repeated attempts because bind sometimes fails for an
- unknown reason on OSX. -}