android 0.0.1 → 0.0.2

raw patch · 3 files changed

+23/−8 lines, 3 filesdep +processPVP ok

version bump matches the API change (PVP)

Dependencies added: process

API changes (from Hackage documentation)

Files

• android.cabal +5/−4
• src/Android/Log.hs +4/−4
• src/Android/OpenURL.hs +14/−0

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                android-version:             0.0.1+version:             0.0.2 synopsis:            Android methods exposed to Haskell description:         Haskell bindings to the Android ecosystem homepage:            https://github.com/keera-studios/android-haskell@@ -17,10 +17,11 @@ cabal-version:       >=1.10  library-  exposed-modules:     Android.Log+  exposed-modules:     Android.Log,+                       Android.OpenURL   -- other-modules:          other-extensions:    ForeignFunctionInterface-  build-depends:       base >=4.6 && <4.9+  build-depends:       base >=4.6 && <4.9, process   hs-source-dirs:      src   default-language:    Haskell2010   @@ -31,4 +32,4 @@ source-repository this   type:     git   location: https://github.com/keera-studios/android-haskell.git-  tag:      v0.0.1+  tag:      v0.0.2

@@ -34,16 +34,16 @@  data AndroidLogPriority =     AndroidLogPrioAssert-  | AndroidLogPrioDebug   | AndroidLogPrioError+  | AndroidLogPrioWarn   | AndroidLogPrioInfo+  | AndroidLogPrioDebug   | AndroidLogPrioVerbose-  | AndroidLogPrioWarn  prioToCInt :: AndroidLogPriority -> CInt prioToCInt AndroidLogPrioAssert  = 7-prioToCInt AndroidLogPrioDebug   = 3 prioToCInt AndroidLogPrioError   = 6+prioToCInt AndroidLogPrioWarn    = 5 prioToCInt AndroidLogPrioInfo    = 4+prioToCInt AndroidLogPrioDebug   = 3 prioToCInt AndroidLogPrioVerbose = 2-prioToCInt AndroidLogPrioWarn    = 5

@@ -0,0 +1,14 @@+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)