From 342c75073b687fd7aea028b0ad911a6e2f7ebede Mon Sep 17 00:00:00 2001
From: bulatz <bulatz@3a4f7f31-9599-433d-91b1-573e8b61252c>
Date: Mon, 5 Oct 2009 09:25:40 +0000
Subject: [PATCH] Unix: ask GNOME for user's preferred browser, use firefox
 otherwise

git-svn-id: https://freearc.svn.sourceforge.net/svnroot/freearc@659 3a4f7f31-9599-433d-91b1-573e8b61252c
---
 FileManager.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/FileManager.hs b/FileManager.hs
index d934e68..ab03c9f 100644
--- a/FileManager.hs
+++ b/FileManager.hs
@@ -734,6 +734,7 @@ myGUI run args = do
   let openWebsite url  =  runFile url "." False
 #else
   let openWebsite url  =  do browser <- runProgram "gconftool-2 --get '/desktop/gnome/url-handlers/http/command'"
+                             browser <- return$ if "%s" `isInfixOf` browser  then browser  else "firefox \"%s\""
                              System.Process.runCommand (browser.$ replaceAll "%s" url)
                              return ()
 #endif