Add Network.GRPC.Time module with Timespec binding.

grpc-haskell.cabal

@@ -19,11 +19,17 @@ cabal-version:       >=1.10
 library
   exposed-modules:
     Network.GRPC
+    Network.GRPC.Time
   -- other-modules:       
   -- other-extensions:    
-  extra-libraries:      grpc
-  includes:             grpc/grpc.h
+  extra-libraries:      
+    grpc
+  includes:             
+      grpc/grpc.h
+    , grpc/support/time.h
   build-tools:          c2hs
-  build-depends:        base >=4.7 && <4.8
+  build-depends:        
+      base        >=4.7     && <4.8
+    , clock       >=0.4     && <0.5
   hs-source-dirs:       src
   default-language:     Haskell2010

src/Network/GRPC/Time.chs

@@ -0,0 +1,26 @@
+module Network.GRPC.Time where
+
+import Control.Applicative
+import Control.Monad
+import Foreign.C.Types
+import Foreign.Ptr
+import Foreign.Storable
+import System.Clock
+
+#include "grpc/support/time.h"
+
+{#context prefix = "grp" #}
+
+newtype CTimeSpec = CTimeSpec { timeSpec :: TimeSpec }
+{#pointer *gpr_timespec as CTimeSpecPtr -> CTimeSpec #}
+
+instance Storable CTimeSpec where
+  sizeOf _ = {#sizeof gpr_timespec #}
+  alignment _ = {#alignof gpr_timespec #}
+  peek p = fmap CTimeSpec $ TimeSpec
+    <$> liftM fromIntegral ({#get gpr_timespec->tv_sec #} p)
+    <*> liftM fromIntegral ({#get gpr_timespec->tv_nsec #} p)
+  poke p x = do
+    {#set gpr_timespec.tv_sec #} p (fromIntegral $ sec $ timeSpec x)
+    {#set gpr_timespec.tv_nsec #} p (fromIntegral $ nsec $ timeSpec x)
+