withRStorable :: (Storable a, PrimMonad m)=> a -> (Ptr a -> m b) -> m b
withRStorable val fun = do
    valVect <- M.replicate 1 val
    unsafeWithPrim valVect fun

withRStorable :: (Storable a, PrimMonad m)=> a -> (Ptr a -> m b) -> m b
withRStorable val fun = do
    valVect <- M.replicate 1 val
    unsafeWithPrim valVect fun

withRStorable val fun = do
    valVect <- M.replicate 1 val
    unsafeWithPrim valVect fun
