diff options
Diffstat (limited to 'Command')
-rwxr-xr-x | Command/TransferKeys.hs | 2 | ||||
-rw-r--r-- | Command/WebApp.hs | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs index d83170bbc..2f5ea1fe4 100755 --- a/Command/TransferKeys.hs +++ b/Command/TransferKeys.hs @@ -9,8 +9,6 @@ module Command.TransferKeys where -import System.PosixCompat.Files - import Common.Annex import Command import Annex.Content 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 |