android-0.0.2: src/Android/OpenURL.hs

module Android.OpenURL where

import Android.Log
import Control.Concurrent (forkIO)
import Control.Monad      (void)
import System.Process     (rawSystem)

-- | Throw an Android intent to visit a URL
openURL :: String -> IO ()
openURL url = void $ forkIO $ do
  e <- rawSystem "am" ["start", "-a", "android.intent.action.VIEW", "-d", url]
  void $ androidLogPrint AndroidLogPrioDebug
                         "uk.co.keera.android.openurl"
                         ("Opening URL " ++ url ++ ", received a " ++ show e)