removed ref constraint; added identity op

tensorflow-ops/src/TensorFlow/Ops.hs

@@ -167,9 +167,9 @@ placeholder shape' =
 
 -- | Construct a tensor whose value is the initialized value of the given
 -- tensor.
-initializedValue :: forall a.  TensorType a 
-    => Tensor Ref a 
-    -> Build (Tensor Ref a)
+initializedValue :: forall a v.  TensorType a 
+    => Tensor v a 
+    -> Build (Tensor v a)
 initializedValue t = do
     ns <- use initializationNodes
     -- Make this tensor depend on the initializers of the other.

tensorflow-ops/tests/BuildTest.hs

@@ -113,7 +113,7 @@ testInitializedVariableShape =
     testCase "testInitializedVariableShape" $ runSession $ do
         vector <- build $ do
                   a <- initializedVariable (constant [1] [42 :: Float])
-                  b <- initializedValue a
+                  b <- initializedValue (identity a)
                   return b
         result <- run vector
         liftIO $ [42] @=? (result :: V.Vector Float)