diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-25 14:09:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-25 14:48:50 -0400 |
| commit | f55d91cc91eec2debf4bb013ff2f5201ea1474ea (patch) | |
| tree | 8b8701608fef4f49622018f26706ebd46bfae943 /Utility/WebApp.hs | |
| parent | c3aaa702c8fe4424dacfddfc255fca8d6149ad06 (diff) | |
fix all remaining -Wall warnings on Windows
Diffstat (limited to 'Utility/WebApp.hs')
| -rw-r--r-- | Utility/WebApp.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index f92c21e4e..6318abdcf 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -23,7 +23,6 @@ import Network.HTTP.Types import System.Log.Logger import qualified Data.CaseInsensitive as CI import Network.Socket -import Control.Exception import "crypto-api" Crypto.Random import qualified Web.ClientSession as CS import qualified Data.ByteString.Lazy as L @@ -39,6 +38,10 @@ import Control.Concurrent #ifdef __ANDROID__ import Data.Endian #endif +#if defined(__ANDROID__) || defined (mingw32_HOST_OS) +#else +import Control.Exception (bracketOnError) +#endif localhost :: HostName localhost = "localhost" |