clean up from windows porting

Command/TransferKeys.hs

@@ -9,8 +9,6 @@
 
 module Command.TransferKeys where
 
-import System.PosixCompat.Files
-
 import Common.Annex
 import Command
 import Annex.Content

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