1
0
mirror of https://github.com/tensorflow/haskell.git synced 2024-06-02 19:13:34 +02:00
This commit is contained in:
Greg Steuck 2016-11-14 11:51:16 -08:00
parent 65106465e1
commit ff5f2cb2d6

View File

@ -35,7 +35,7 @@ testTracing = do
-- Verifies that tracing happens as a side-effect of graph extension.
loggedValue <- newEmptyMVar
TF.runSessionWithOptions
(def & TF.sessionTracer .~ (putMVar loggedValue))
(def & TF.sessionTracer .~ putMVar loggedValue)
(TF.buildAnd TF.run_ (pure (TF.scalar (0 :: Float))))
tryReadMVar loggedValue >>=
maybe (assertFailure "Logging never happened") expectedFormat