From d9ecd55438f6a79c020d4d503e98485b7f5efe83 Mon Sep 17 00:00:00 2001
From: silky <noonsilk+-noonsilk@gmail.com>
Date: Fri, 23 Dec 2016 11:22:37 +1100
Subject: [PATCH] test actually demonstrates fix.

---
 tensorflow-ops/tests/BuildTest.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tensorflow-ops/tests/BuildTest.hs b/tensorflow-ops/tests/BuildTest.hs
index 7a02232..63cb10c 100644
--- a/tensorflow-ops/tests/BuildTest.hs
+++ b/tensorflow-ops/tests/BuildTest.hs
@@ -114,7 +114,8 @@ testInitializedVariableShape =
         vector <- build $ do
                   a <- initializedVariable (constant [1] [42 :: Float])
                   b <- initializedValue (identity a)
-                  return b
+                  c <- initializedVariable b
+                  return c
         result <- run vector
         liftIO $ [42] @=? (result :: V.Vector Float)