diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
| commit | 618af8b6772d25ab27336d240ecddae7ae207561 (patch) | |
| tree | 9e48ea32c7cbe11603ab599b5e0616457cd4de4e /Command/WebApp.hs | |
| parent | db56fab07ddd6910b1dc08f4fa242c267c469eb5 (diff) | |
clean up from windows porting
Diffstat (limited to 'Command/WebApp.hs')
| -rw-r--r-- | Command/WebApp.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index b4307a21f..705ff6980 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -158,7 +158,11 @@ firstRun listenhost = do sendurlback v _origout _origerr url _htmlshim = putMVar v url openBrowser :: Maybe FilePath -> FilePath -> String -> Maybe Handle -> Maybe Handle -> IO () +#ifdef __ANDROID__ openBrowser mcmd htmlshim realurl outh errh = do +#else +openBrowser mcmd htmlshim _realurl outh errh = do +#endif hPutStrLn (fromMaybe stdout outh) $ "Launching web browser on " ++ url hFlush stdout environ <- cleanEnvironment |