module Web.Browser.OSX ( openBrowserOSX ) where import System.Exit (ExitCode(..)) import System.Process (rawSystem) openBrowserOSX :: String -> IO Bool openBrowserOSX :: String -> IO Bool openBrowserOSX url :: String url = ExitCode -> Bool exitCodeToBool (ExitCode -> Bool) -> IO ExitCode -> IO Bool forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b `fmap` String -> [String] -> IO ExitCode rawSystem String executable [String] argv where (executable :: String executable, argv :: [String] argv) = ("open", [String url]) exitCodeToBool :: ExitCode -> Bool exitCodeToBool ExitSuccess = Bool True exitCodeToBool (ExitFailure _) = Bool False