Add JavaScript.Web.Performance

Author: ocharles

JavaScript/Web/Performance.hs

@@ -0,0 +1,36 @@
+{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI, InterruptibleFFI,
+             DeriveDataTypeable
+  #-}
+
+{- | The Performance interface represents timing-related performance information for the given page.
+  -}
+
+module JavaScript.Web.Performance
+    ( now
+    ) where
+
+import GHCJS.Foreign.Callback
+import GHCJS.Marshal.Pure
+import GHCJS.Types
+
+import Control.Exception (onException)
+import Data.Typeable
+
+newtype AnimationFrameHandle = AnimationFrameHandle (JSRef ())
+  deriving (Typeable)
+
+{- | The 'now' computation returns a high resolution time stamp, measured in
+     milliseconds, accurate to one thousandth of a millisecond.
+
+     The value represented by 0 varies according the context, but
+     in dedicated workers created from a Window context, the epoch is the value
+     of the @PerformanceTiming.navigationStart@ property.
+ -}
+now :: IO Double
+now = js_performanceNow
+{-# INLINE now #-}
+
+-- -----------------------------------------------------------------------------
+
+foreign import javascript unsafe "performance.now()"
+  js_performanceNow :: IO Double

ghcjs-base.cabal

@@ -44,7 +44,7 @@ library
                     GeneralizedNewtypeDeriving
                     ScopedTypeVariables
                     TypeOperators
-                    
+
   ghc-options:     -O
   exposed-modules: Data.JSString
                    Data.JSString.Int
@@ -107,6 +107,7 @@ library
                    JavaScript.Web.File
                    JavaScript.Web.MessageEvent
                    JavaScript.Web.MessageEvent.Internal
+                   JavaScript.Web.Performance
                    JavaScript.Web.Storage
                    JavaScript.Web.Storage.Internal
                    JavaScript.Web.StorageEvent
@@ -168,5 +169,3 @@ test-suite tests
     test-framework >= 0.4,
     test-framework-hunit >= 0.2,
     test-framework-quickcheck2 >= 0.2
-
-