<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-comment">-- Copyright 2016 TensorFlow authors.</span><span> </span><a name="line-2"></a><span class="hs-comment">--</span><span> </span><a name="line-3"></a><span class="hs-comment">-- Licensed under the Apache License, Version 2.0 (the "License");</span><span> </span><a name="line-4"></a><span class="hs-comment">-- you may not use this file except in compliance with the License.</span><span> </span><a name="line-5"></a><span class="hs-comment">-- You may obtain a copy of the License at</span><span> </span><a name="line-6"></a><span class="hs-comment">--</span><span> </span><a name="line-7"></a><span class="hs-comment">-- http://www.apache.org/licenses/LICENSE-2.0</span><span> </span><a name="line-8"></a><span class="hs-comment">--</span><span> </span><a name="line-9"></a><span class="hs-comment">-- Unless required by applicable law or agreed to in writing, software</span><span> </span><a name="line-10"></a><span class="hs-comment">-- distributed under the License is distributed on an "AS IS" BASIS,</span><span> </span><a name="line-11"></a><span class="hs-comment">-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.</span><span> </span><a name="line-12"></a><span class="hs-comment">-- See the License for the specific language governing permissions and</span><span> </span><a name="line-13"></a><span class="hs-comment">-- limitations under the License.</span><span> </span><a name="line-14"></a><span> </span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE GeneralizedNewtypeDeriving #-}</span><span> </span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span> </span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE LambdaCase #-}</span><span> </span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE FunctionalDependencies #-}</span><span> </span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span> </span><a name="line-20"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span> </span><a name="line-21"></a><span class="hs-pragma">{-# LANGUAGE Rank2Types #-}</span><span> </span><a name="line-22"></a><span class="hs-pragma">{-# LANGUAGE TypeFamilies #-}</span><span> </span><a name="line-23"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">TensorFlow</span><span class="hs-operator">.</span><span class="hs-identifier">Build</span><span> </span><a name="line-24"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-comment">-- * Graph node types</span><span> </span><a name="line-25"></a><span> </span><a href="TensorFlow.Output.html#ControlNode"><span class="hs-identifier hs-type">ControlNode</span></a><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span> </span><a name="line-26"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#Unique"><span class="hs-identifier hs-type">Unique</span></a><span> </span><a name="line-27"></a><span> </span><span class="hs-comment">-- * Ops</span><span> </span><a name="line-28"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#explicitName"><span class="hs-identifier hs-var">explicitName</span></a><span> </span><a name="line-29"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#implicitName"><span class="hs-identifier hs-var">implicitName</span></a><span> </span><a name="line-30"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#opDef"><span class="hs-identifier hs-var">opDef</span></a><span> </span><a name="line-31"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#opDefWithName"><span class="hs-identifier hs-var">opDefWithName</span></a><span> </span><a name="line-32"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Output.html#opName"><span class="hs-identifier hs-var">opName</span></a><span> </span><a name="line-33"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Output.html#opType"><span class="hs-identifier hs-var">opType</span></a><span> </span><a name="line-34"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Output.html#opAttr"><span class="hs-identifier hs-var">opAttr</span></a><span> </span><a name="line-35"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Output.html#opInputs"><span class="hs-identifier hs-var">opInputs</span></a><span> </span><a name="line-36"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Output.html#opControlInputs"><span class="hs-identifier hs-var">opControlInputs</span></a><span> </span><a name="line-37"></a><span> </span><span class="hs-comment">-- * The Build monad</span><span> </span><a name="line-38"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><a name="line-39"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#renderedNodeDefs"><span class="hs-identifier hs-var">renderedNodeDefs</span></a><span> </span><a name="line-40"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><a name="line-41"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a name="line-42"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span> </span><a name="line-43"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#addInitializer"><span class="hs-identifier hs-var">addInitializer</span></a><span> </span><a name="line-44"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#hoistBuildT"><span class="hs-identifier hs-var">hoistBuildT</span></a><span> </span><a name="line-45"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#evalBuildT"><span class="hs-identifier hs-var">evalBuildT</span></a><span> </span><a name="line-46"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#runBuildT"><span class="hs-identifier hs-var">runBuildT</span></a><span> </span><a name="line-47"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#asGraphDef"><span class="hs-identifier hs-var">asGraphDef</span></a><span> </span><a name="line-48"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#addGraphDef"><span class="hs-identifier hs-var">addGraphDef</span></a><span> </span><a name="line-49"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#flushInitializers"><span class="hs-identifier hs-var">flushInitializers</span></a><span> </span><a name="line-50"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#flushNodeBuffer"><span class="hs-identifier hs-var">flushNodeBuffer</span></a><span> </span><a name="line-51"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#summaries"><span class="hs-identifier hs-var">summaries</span></a><span> </span><a name="line-52"></a><span> </span><span class="hs-comment">-- * Creating and looking up Ops</span><span> </span><a name="line-53"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#getOrAddOp"><span class="hs-identifier hs-var">getOrAddOp</span></a><span> </span><a name="line-54"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#addNewOp"><span class="hs-identifier hs-var">addNewOp</span></a><span> </span><a name="line-55"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#encodeOutput"><span class="hs-identifier hs-var">encodeOutput</span></a><span> </span><a name="line-56"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#lookupNode"><span class="hs-identifier hs-var">lookupNode</span></a><span> </span><a name="line-57"></a><span> </span><span class="hs-comment">-- * Modifying all nodes in a Build action</span><span> </span><a name="line-58"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#withStateLens"><span class="hs-identifier hs-var">withStateLens</span></a><span> </span><a name="line-59"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#withDevice"><span class="hs-identifier hs-var">withDevice</span></a><span> </span><a name="line-60"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#withNameScope"><span class="hs-identifier hs-var">withNameScope</span></a><span> </span><a name="line-61"></a><span> </span><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#withNodeDependencies"><span class="hs-identifier hs-var">withNodeDependencies</span></a><span> </span><a name="line-62"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="line-63"></a><span> </span><a name="line-64"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">Catch</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">MonadThrow</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">MonadCatch</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">MonadMask</span><span class="hs-special">)</span><span> </span><a name="line-65"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">Fix</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">MonadFix</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-66"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">IO</span><span class="hs-operator">.</span><span class="hs-identifier">Class</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">MonadIO</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-67"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">Trans</span><span class="hs-operator">.</span><span class="hs-identifier">Class</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">MonadTrans</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-68"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Monad</span><span class="hs-operator">.</span><span class="hs-identifier">Trans</span><span class="hs-operator">.</span><span class="hs-identifier">State</span><span class="hs-operator">.</span><span class="hs-identifier">Strict</span><span class="hs-special">(</span><span class="hs-identifier hs-type">StateT</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">mapStateT</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">evalStateT</span><span class="hs-special">)</span><span> </span><a name="line-69"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Default</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">def</span><span class="hs-special">)</span><span> </span><a name="line-70"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Functor</span><span class="hs-operator">.</span><span class="hs-identifier">Identity</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Identity</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-71"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Map</span><span class="hs-operator">.</span><span class="hs-identifier">Strict</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</span><span> </span><a name="line-72"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Monoid</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-73"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Set</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Set</span><span> </span><a name="line-74"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Set</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Set</span><span class="hs-special">)</span><span> </span><a name="line-75"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">String</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">IsString</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-76"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span> </span><a name="line-77"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Text</span><span> </span><a name="line-78"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Family2</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Lens'</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.~</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">^.</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">&</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-79"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Family2</span><span class="hs-operator">.</span><span class="hs-identifier">State</span><span class="hs-operator">.</span><span class="hs-identifier">Strict</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">MonadState</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">use</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">uses</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.=</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><>=</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">%=</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a name="line-80"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Family2</span><span class="hs-operator">.</span><span class="hs-identifier">Unchecked</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">lens</span><span class="hs-special">)</span><span> </span><a name="line-81"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Proto</span><span class="hs-operator">.</span><span class="hs-identifier">Tensorflow</span><span class="hs-operator">.</span><span class="hs-identifier">Core</span><span class="hs-operator">.</span><span class="hs-identifier">Framework</span><span class="hs-operator">.</span><span class="hs-identifier">Graph</span><span> </span><a name="line-82"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-identifier hs-type">GraphDef</span><span> </span><a name="line-83"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">node</span><span> </span><a name="line-84"></a><span> </span><span class="hs-special">)</span><span> </span><a name="line-85"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Proto</span><span class="hs-operator">.</span><span class="hs-identifier">Tensorflow</span><span class="hs-operator">.</span><span class="hs-identifier">Core</span><span class="hs-operator">.</span><span class="hs-identifier">Framework</span><span class="hs-operator">.</span><span class="hs-identifier">NodeDef</span><span> </span><a name="line-86"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-identifier hs-type">NodeDef</span><span> </span><a name="line-87"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">attr</span><span> </span><a name="line-88"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">input</span><span> </span><a name="line-89"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">device</span><span> </span><a name="line-90"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">name</span><span> </span><a name="line-91"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">op</span><span> </span><a name="line-92"></a><span> </span><span class="hs-special">)</span><span> </span><a name="line-93"></a><span> </span><a name="line-94"></a><span class="hs-keyword">import</span><span> </span><a href="TensorFlow.Output.html"><span class="hs-identifier">TensorFlow</span><span class="hs-operator">.</span><span class="hs-identifier">Output</span></a><span> </span><a name="line-95"></a><span> </span><a name="line-96"></a><span class="hs-keyword">newtype</span><span> </span><a name="Unique"><a href="TensorFlow.Build.html#Unique"><span class="hs-identifier">Unique</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Unique"><a href="TensorFlow.Build.html#Unique"><span class="hs-identifier">Unique</span></a></a><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><a name="line-97"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Ord</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Enum</span><span class="hs-special">)</span><span> </span><a name="line-98"></a><span> </span><a name="line-99"></a><span class="hs-comment">--------------</span><span> </span><a name="line-100"></a><span> </span><a name="line-101"></a><span class="hs-identifier">implicitName</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#PendingNodeName"><span class="hs-identifier hs-type">PendingNodeName</span></a><span> </span><a name="line-102"></a><a name="implicitName"><a href="TensorFlow.Build.html#implicitName"><span class="hs-identifier">implicitName</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Output.html#ImplicitName"><span class="hs-identifier hs-var">ImplicitName</span></a><span> </span><a name="line-103"></a><span> </span><a name="line-104"></a><span class="hs-identifier">explicitName</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Output.html#PendingNodeName"><span class="hs-identifier hs-type">PendingNodeName</span></a><span> </span><a name="line-105"></a><a name="explicitName"><a href="TensorFlow.Build.html#explicitName"><span class="hs-identifier">explicitName</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Output.html#ExplicitName"><span class="hs-identifier hs-var">ExplicitName</span></a><span> </span><a name="line-106"></a><span> </span><a name="line-107"></a><span class="hs-keyword">newtype</span><span> </span><a name="Scope"><a href="TensorFlow.Build.html#Scope"><span class="hs-identifier">Scope</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Scope"><a href="TensorFlow.Build.html#Scope"><span class="hs-identifier">Scope</span></a></a><span> </span><span class="hs-special">{</span><a name="unScope"><a href="TensorFlow.Build.html#unScope"><span class="hs-identifier">unScope</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">}</span><span> </span><a name="line-108"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Ord</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">IsString</span><span class="hs-special">)</span><span> </span><a name="line-109"></a><span> </span><a name="line-110"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">Show</span><span> </span><a href="TensorFlow.Build.html#Scope"><span class="hs-identifier hs-type">Scope</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="line-111"></a><span> </span><a name="local-8214565720323790231"><span class="hs-identifier">show</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unScope</span><span> </span><a name="line-112"></a><span> </span><a name="line-113"></a><span class="hs-identifier">opDef</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#OpType"><span class="hs-identifier hs-type">OpType</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Output.html#OpDef"><span class="hs-identifier hs-type">OpDef</span></a><span> </span><a name="line-114"></a><a name="opDef"><a href="TensorFlow.Build.html#opDef"><span class="hs-identifier">opDef</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#opDefWithName"><span class="hs-identifier hs-var">opDefWithName</span></a><span> </span><a href="TensorFlow.Output.html#ImplicitName"><span class="hs-identifier hs-var">ImplicitName</span></a><span> </span><a name="line-115"></a><span> </span><a name="line-116"></a><span class="hs-identifier">opDefWithName</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#PendingNodeName"><span class="hs-identifier hs-type">PendingNodeName</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Output.html#OpType"><span class="hs-identifier hs-type">OpType</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Output.html#OpDef"><span class="hs-identifier hs-type">OpDef</span></a><span> </span><a name="line-117"></a><a name="opDefWithName"><a href="TensorFlow.Build.html#opDefWithName"><span class="hs-identifier">opDefWithName</span></a></a><span> </span><a name="local-6989586621679114396"><a href="#local-6989586621679114396"><span class="hs-identifier">n</span></a></a><span> </span><a name="local-6989586621679114397"><a href="#local-6989586621679114397"><span class="hs-identifier">t</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Output.html#OpDef"><span class="hs-identifier hs-var">OpDef</span></a><span> </span><a name="line-118"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_opName</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114396"><span class="hs-identifier hs-var">n</span></a><span> </span><a name="line-119"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">_opType</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114397"><span class="hs-identifier hs-var">t</span></a><span> </span><a name="line-120"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">_opAttrs</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Map</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span> </span><a name="line-121"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">_opInputs</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><a name="line-122"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">_opControlInputs</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><a name="line-123"></a><span> </span><span class="hs-special">}</span><span> </span><a name="line-124"></a><span> </span><a name="line-125"></a><span class="hs-keyword">data</span><span> </span><a name="GraphState"><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier">GraphState</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="GraphState"><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier">GraphState</span></a></a><span> </span><a name="line-126"></a><span> </span><span class="hs-special">{</span><span> </span><a name="_renderedNodes"><a href="TensorFlow.Build.html#_renderedNodes"><span class="hs-identifier">_renderedNodes</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-type">PendingNode</span></a><span> </span><span class="hs-identifier hs-type">NodeDef</span><span class="hs-special">)</span><span> </span><a name="line-127"></a><span> </span><span class="hs-comment">-- ^ Nodes which have been rendered. Keeps track of the unique ID we</span><span> </span><a name="line-128"></a><span> </span><span class="hs-comment">-- assign each implicitly-named node. Also prevents us from adding the</span><span> </span><a name="line-129"></a><span> </span><span class="hs-comment">-- same node (implicit or explicit) more than once to the nodeBuffer.</span><span> </span><a name="line-130"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_renderedNodeDefs"><a href="TensorFlow.Build.html#_renderedNodeDefs"><span class="hs-identifier">_renderedNodeDefs</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><span class="hs-identifier hs-type">NodeDef</span><span class="hs-special">)</span><span> </span><a name="line-131"></a><span> </span><span class="hs-comment">-- ^ The NodeDefs of nodes which have been rendered. Used by the</span><span> </span><a name="line-132"></a><span> </span><span class="hs-comment">-- Gradient module to inspect the node graph.</span><span> </span><a name="line-133"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_nodeBuffer"><a href="TensorFlow.Build.html#_nodeBuffer"><span class="hs-identifier">_nodeBuffer</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NodeDef</span><span class="hs-special">]</span><span> </span><a name="line-134"></a><span> </span><span class="hs-comment">-- ^ A list of nodes that should be passed to TensorFlow during</span><span> </span><a name="line-135"></a><span> </span><span class="hs-comment">-- the next call to Session.extend (TF_ExtendGraph).</span><span> </span><a name="line-136"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_nextUnique"><a href="TensorFlow.Build.html#_nextUnique"><span class="hs-identifier">_nextUnique</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><a href="TensorFlow.Build.html#Unique"><span class="hs-identifier hs-type">Unique</span></a><span> </span><a name="line-137"></a><span> </span><span class="hs-comment">-- ^ Unique ID for the next node</span><span> </span><a name="line-138"></a><span> </span><span class="hs-comment">-- TODO(judahjacobson): watch for clashes between auto and user names.</span><span> </span><a name="line-139"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_defaultDevice"><a href="TensorFlow.Build.html#_defaultDevice"><span class="hs-identifier">_defaultDevice</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="TensorFlow.Output.html#Device"><span class="hs-identifier hs-type">Device</span></a><span class="hs-special">)</span><span> </span><a name="line-140"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_currentScope"><a href="TensorFlow.Build.html#_currentScope"><span class="hs-identifier">_currentScope</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><a href="TensorFlow.Build.html#Scope"><span class="hs-identifier hs-type">Scope</span></a><span class="hs-special">]</span><span> </span><a name="line-141"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_defaultControlInputs"><a href="TensorFlow.Build.html#_defaultControlInputs"><span class="hs-identifier">_defaultControlInputs</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Set</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span class="hs-special">)</span><span> </span><a name="line-142"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_initializationNodes"><a href="TensorFlow.Build.html#_initializationNodes"><span class="hs-identifier">_initializationNodes</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span class="hs-special">]</span><span> </span><a name="line-143"></a><span> </span><span class="hs-comment">-- ^ The nodes to run next time a TF.run is issued, typically</span><span> </span><a name="line-144"></a><span> </span><span class="hs-comment">-- variable initializers.</span><span> </span><a name="line-145"></a><span> </span><span class="hs-special">,</span><span> </span><a name="_summaries"><a href="TensorFlow.Build.html#_summaries"><span class="hs-identifier">_summaries</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><a href="TensorFlow.Output.html#Output"><span class="hs-identifier hs-type">Output</span></a><span class="hs-special">]</span><span> </span><a name="line-146"></a><span> </span><span class="hs-comment">-- ^ The tensors for summary (ByteString type)</span><span> </span><a name="line-147"></a><span> </span><span class="hs-special">}</span><span> </span><a name="line-148"></a><span> </span><a name="line-149"></a><span class="hs-comment">-- | A node definition without its final name. Used as a key in the</span><span> </span><a name="line-150"></a><span class="hs-comment">-- "renderedNodes" map.</span><span> </span><a name="line-151"></a><span class="hs-comment">-- The NodeDef contained inside has an empty "name" field.</span><span> </span><a name="line-152"></a><span class="hs-keyword">data</span><span> </span><a name="PendingNode"><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier">PendingNode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="PendingNode"><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier">PendingNode</span></a></a><span> </span><span class="hs-special">[</span><a href="TensorFlow.Build.html#Scope"><span class="hs-identifier hs-type">Scope</span></a><span class="hs-special">]</span><span> </span><span class="hs-glyph">!</span><a href="TensorFlow.Output.html#PendingNodeName"><span class="hs-identifier hs-type">PendingNodeName</span></a><span> </span><span class="hs-glyph">!</span><span class="hs-identifier hs-type">NodeDef</span><span> </span><a name="line-153"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Ord</span><span class="hs-special">)</span><span> </span><a name="line-154"></a><span> </span><a name="line-155"></a><span class="hs-comment">-- Returns an _incomplete_ NodeDef. The name is fixed by addNewOpFromPending.</span><span> </span><a name="line-156"></a><span class="hs-identifier">pendingNodeDef</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-type">PendingNode</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NodeDef</span><span> </span><a name="line-157"></a><a name="pendingNodeDef"><a href="TensorFlow.Build.html#pendingNodeDef"><span class="hs-identifier">pendingNodeDef</span></a></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-var">PendingNode</span></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679114398"><a href="#local-6989586621679114398"><span class="hs-identifier">n</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114398"><span class="hs-identifier hs-var">n</span></a><span> </span><a name="line-158"></a><span> </span><a name="line-159"></a><span class="hs-identifier">initGraphState</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><a name="line-160"></a><a name="initGraphState"><a href="TensorFlow.Build.html#initGraphState"><span class="hs-identifier">initGraphState</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="line-161"></a><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-var">GraphState</span></a><span> </span><span class="hs-identifier hs-var">Map</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span> </span><span class="hs-identifier hs-var">Map</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#Unique"><span class="hs-identifier hs-var">Unique</span></a><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-identifier hs-var">Set</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><a name="line-162"></a><span> </span><a name="line-163"></a><span class="hs-identifier">renderedNodes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-type">PendingNode</span></a><span> </span><span class="hs-identifier hs-type">NodeDef</span><span class="hs-special">)</span><span> </span><a name="line-164"></a><a name="renderedNodes"><a href="TensorFlow.Build.html#renderedNodes"><span class="hs-identifier">renderedNodes</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_renderedNodes</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114399"><a href="#local-6989586621679114399"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114400"><a href="#local-6989586621679114400"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114399"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_renderedNodes</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114400"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-165"></a><span> </span><a name="line-166"></a><span class="hs-identifier">renderedNodeDefs</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><span class="hs-identifier hs-type">NodeDef</span><span class="hs-special">)</span><span> </span><a name="line-167"></a><a name="renderedNodeDefs"><a href="TensorFlow.Build.html#renderedNodeDefs"><span class="hs-identifier">renderedNodeDefs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_renderedNodeDefs</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114401"><a href="#local-6989586621679114401"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114402"><a href="#local-6989586621679114402"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114401"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_renderedNodeDefs</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114402"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-168"></a><span> </span><a name="line-169"></a><span class="hs-identifier">nodeBuffer</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NodeDef</span><span class="hs-special">]</span><span> </span><a name="line-170"></a><a name="nodeBuffer"><a href="TensorFlow.Build.html#nodeBuffer"><span class="hs-identifier">nodeBuffer</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_nodeBuffer</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114403"><a href="#local-6989586621679114403"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114404"><a href="#local-6989586621679114404"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114403"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_nodeBuffer</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114404"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-171"></a><span> </span><a name="line-172"></a><span class="hs-identifier">nextUnique</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><a href="TensorFlow.Build.html#Unique"><span class="hs-identifier hs-type">Unique</span></a><span> </span><a name="line-173"></a><a name="nextUnique"><a href="TensorFlow.Build.html#nextUnique"><span class="hs-identifier">nextUnique</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_nextUnique</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114405"><a href="#local-6989586621679114405"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114406"><a href="#local-6989586621679114406"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114405"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_nextUnique</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114406"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-174"></a><span> </span><a name="line-175"></a><span class="hs-identifier">defaultDevice</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="TensorFlow.Output.html#Device"><span class="hs-identifier hs-type">Device</span></a><span class="hs-special">)</span><span> </span><a name="line-176"></a><a name="defaultDevice"><a href="TensorFlow.Build.html#defaultDevice"><span class="hs-identifier">defaultDevice</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_defaultDevice</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114407"><a href="#local-6989586621679114407"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114408"><a href="#local-6989586621679114408"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114407"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_defaultDevice</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114408"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-177"></a><span> </span><a name="line-178"></a><span class="hs-identifier">currentScope</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">[</span><a href="TensorFlow.Build.html#Scope"><span class="hs-identifier hs-type">Scope</span></a><span class="hs-special">]</span><span> </span><a name="line-179"></a><a name="currentScope"><a href="TensorFlow.Build.html#currentScope"><span class="hs-identifier">currentScope</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_currentScope</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114409"><a href="#local-6989586621679114409"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114410"><a href="#local-6989586621679114410"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114409"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_currentScope</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114410"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-180"></a><span> </span><a name="line-181"></a><span class="hs-identifier">defaultControlInputs</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Set</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span class="hs-special">)</span><span> </span><a name="line-182"></a><a name="defaultControlInputs"><a href="TensorFlow.Build.html#defaultControlInputs"><span class="hs-identifier">defaultControlInputs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_defaultControlInputs</span><span> </span><a name="line-183"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114411"><a href="#local-6989586621679114411"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114412"><a href="#local-6989586621679114412"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114411"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_defaultControlInputs</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114412"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-184"></a><span> </span><a name="line-185"></a><span class="hs-identifier">initializationNodes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">[</span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span class="hs-special">]</span><span> </span><a name="line-186"></a><a name="initializationNodes"><a href="TensorFlow.Build.html#initializationNodes"><span class="hs-identifier">initializationNodes</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_initializationNodes</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114413"><a href="#local-6989586621679114413"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114414"><a href="#local-6989586621679114414"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114413"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_initializationNodes</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114414"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-187"></a><span> </span><a name="line-188"></a><span class="hs-identifier">summaries</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><span class="hs-special">[</span><a href="TensorFlow.Output.html#Output"><span class="hs-identifier hs-type">Output</span></a><span class="hs-special">]</span><span> </span><a name="line-189"></a><a name="summaries"><a href="TensorFlow.Build.html#summaries"><span class="hs-identifier">summaries</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">lens</span><span> </span><span class="hs-identifier">_summaries</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679114415"><a href="#local-6989586621679114415"><span class="hs-identifier">g</span></a></a><span> </span><a name="local-6989586621679114416"><a href="#local-6989586621679114416"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114415"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">_summaries</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679114416"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a name="line-190"></a><span> </span><a name="line-191"></a><span class="hs-comment">-- | An action for building nodes in a TensorFlow graph.</span><span> </span><a name="line-192"></a><span class="hs-comment">-- Used to manage build state internally as part of the @Session@ monad.</span><span> </span><a name="line-193"></a><span class="hs-keyword">newtype</span><span> </span><a name="BuildT"><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier">BuildT</span></a></a><span> </span><a name="local-6989586621679114233"><a href="#local-6989586621679114233"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679114234"><a href="#local-6989586621679114234"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="BuildT"><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier">BuildT</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">StateT</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><a href="#local-6989586621679114233"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114234"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><a name="line-194"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">MonadIO</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">MonadTrans</span><span class="hs-special">,</span><span> </span><a name="line-195"></a><span> </span><span class="hs-identifier hs-type">MonadState</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">MonadThrow</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">MonadCatch</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">MonadMask</span><span class="hs-special">,</span><span> </span><a name="line-196"></a><span> </span><span class="hs-identifier hs-type">MonadFix</span><span class="hs-special">)</span><span> </span><a name="line-197"></a><span> </span><a name="line-198"></a><span class="hs-comment">-- | An action for building nodes in a TensorFlow graph.</span><span> </span><a name="line-199"></a><span class="hs-keyword">type</span><span> </span><a name="Build"><a href="TensorFlow.Build.html#Build"><span class="hs-identifier">Build</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><span class="hs-identifier hs-type">Identity</span><span> </span><a name="line-200"></a><span> </span><a name="line-201"></a><span class="hs-comment">-- | This is Control.Monad.Morph.hoist sans the dependency.</span><span> </span><a name="line-202"></a><span class="hs-identifier">hoistBuildT</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679114395"><a href="#local-6989586621679114395"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-operator">.</span><span> </span><a href="#local-6989586621679114392"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114395"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114393"><span class="hs-identifier hs-type">n</span></a><span> </span><a href="#local-6989586621679114395"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><a href="#local-6989586621679114392"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114394"><span class="hs-identifier hs-type">b</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><a href="#local-6989586621679114393"><span class="hs-identifier hs-type">n</span></a><span> </span><a href="#local-6989586621679114394"><span class="hs-identifier hs-type">b</span></a><span> </span><a name="line-203"></a><a name="hoistBuildT"><a href="TensorFlow.Build.html#hoistBuildT"><span class="hs-identifier">hoistBuildT</span></a></a><span> </span><a name="local-6989586621679114417"><a href="#local-6989586621679114417"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-var">BuildT</span></a><span> </span><a name="local-6989586621679114418"><a href="#local-6989586621679114418"><span class="hs-identifier">m</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-var">BuildT</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">mapStateT</span><span> </span><a href="#local-6989586621679114417"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679114418"><span class="hs-identifier hs-var">m</span></a><span> </span><a name="line-204"></a><span> </span><a name="line-205"></a><span class="hs-identifier">runBuildT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><a href="#local-6989586621679114390"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114391"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114390"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114391"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span class="hs-special">)</span><span> </span><a name="line-206"></a><a name="runBuildT"><a href="TensorFlow.Build.html#runBuildT"><span class="hs-identifier">runBuildT</span></a></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-var">BuildT</span></a><span> </span><a name="local-6989586621679114419"><a href="#local-6989586621679114419"><span class="hs-identifier">f</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">runStateT</span><span> </span><a href="#local-6989586621679114419"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="TensorFlow.Build.html#initGraphState"><span class="hs-identifier hs-var">initGraphState</span></a><span> </span><a name="line-207"></a><span> </span><a name="line-208"></a><span class="hs-identifier">evalBuildT</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114388"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><a href="#local-6989586621679114388"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114389"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114388"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114389"><span class="hs-identifier hs-type">a</span></a><span> </span><a name="line-209"></a><a name="evalBuildT"><a href="TensorFlow.Build.html#evalBuildT"><span class="hs-identifier">evalBuildT</span></a></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-var">BuildT</span></a><span> </span><a name="local-6989586621679114420"><a href="#local-6989586621679114420"><span class="hs-identifier">f</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">evalStateT</span><span> </span><a href="#local-6989586621679114420"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="TensorFlow.Build.html#initGraphState"><span class="hs-identifier hs-var">initGraphState</span></a><span> </span><a name="line-210"></a><span> </span><a name="line-211"></a><span class="hs-comment">-- | Lift a 'Build' action into a monad, including any explicit op renderings.</span><span> </span><a name="line-212"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114231"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MonadBuild"><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier">MonadBuild</span></a></a><span> </span><a name="local-6989586621679114231"><a href="#local-6989586621679114231"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="line-213"></a><span> </span><span class="hs-identifier">build</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a href="#local-6989586621679114232"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114231"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114232"><span class="hs-identifier hs-type">a</span></a><span> </span><a name="line-214"></a><span> </span><a name="line-215"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114373"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><a href="#local-6989586621679114373"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="line-216"></a><span> </span><a name="local-8214565720323889086"><a href="TensorFlow.Build.html#build"><span class="hs-identifier">build</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#hoistBuildT"><span class="hs-identifier hs-var">hoistBuildT</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">runIdentity</span><span> </span><a name="line-217"></a><span> </span><a name="line-218"></a><span class="hs-comment">-- | Get all the NodeDefs that have accumulated so far, and clear that buffer.</span><span> </span><a name="line-219"></a><span class="hs-identifier">flushNodeBuffer</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><a href="#local-6989586621679114387"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679114387"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NodeDef</span><span class="hs-special">]</span><span> </span><a name="line-220"></a><a name="flushNodeBuffer"><a href="TensorFlow.Build.html#flushNodeBuffer"><span class="hs-identifier">flushNodeBuffer</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#build"><span class="hs-identifier hs-var">build</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-keyword">do</span><span> </span><a name="line-221"></a><span> </span><a name="local-6989586621679114421"><a href="#local-6989586621679114421"><span class="hs-identifier">ns</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">use</span><span> </span><a href="TensorFlow.Build.html#nodeBuffer"><span class="hs-identifier hs-var">nodeBuffer</span></a><span> </span><a name="line-222"></a><span> </span><a href="TensorFlow.Build.html#nodeBuffer"><span class="hs-identifier hs-var">nodeBuffer</span></a><span> </span><span class="hs-operator hs-var">.=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><a name="line-223"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679114421"><span class="hs-identifier hs-var">ns</span></a><span> </span><a name="line-224"></a><span> </span><a name="line-225"></a><span class="hs-comment">-- | Get all the initializers that have accumulated so far, and clear</span><span> </span><a name="line-226"></a><span class="hs-comment">-- that buffer.</span><span> </span><a name="line-227"></a><span class="hs-identifier">flushInitializers</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114386"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="TensorFlow.Build.html#BuildT"><span class="hs-identifier hs-type">BuildT</span></a><span> </span><a href="#local-6989586621679114386"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">[</span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span class="hs-special">]</span><span> </span><a name="line-228"></a><a name="flushInitializers"><a href="TensorFlow.Build.html#flushInitializers"><span class="hs-identifier">flushInitializers</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><a name="line-229"></a><span> </span><a name="local-6989586621679114422"><a href="#local-6989586621679114422"><span class="hs-identifier">ns</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">use</span><span> </span><a href="TensorFlow.Build.html#initializationNodes"><span class="hs-identifier hs-var">initializationNodes</span></a><span> </span><a name="line-230"></a><span> </span><a href="TensorFlow.Build.html#initializationNodes"><span class="hs-identifier hs-var">initializationNodes</span></a><span> </span><span class="hs-operator hs-var">.=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><a name="line-231"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679114422"><span class="hs-identifier hs-var">ns</span></a><span> </span><a name="line-232"></a><span> </span><a name="line-233"></a><span class="hs-comment">-- | Registers the given node to be executed before the next</span><span> </span><a name="line-234"></a><span class="hs-comment">-- 'TensorFlow.Session.run'.</span><span> </span><a name="line-235"></a><span class="hs-identifier">addInitializer</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><a href="#local-6989586621679114385"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="TensorFlow.Output.html#ControlNode"><span class="hs-identifier hs-type">ControlNode</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114385"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><a name="line-236"></a><a name="addInitializer"><a href="TensorFlow.Build.html#addInitializer"><span class="hs-identifier">addInitializer</span></a></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Output.html#ControlNode"><span class="hs-identifier hs-var">ControlNode</span></a><span> </span><a name="local-6989586621679114423"><a href="#local-6989586621679114423"><span class="hs-identifier">i</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#build"><span class="hs-identifier hs-var">build</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="TensorFlow.Build.html#initializationNodes"><span class="hs-identifier hs-var">initializationNodes</span></a><span> </span><span class="hs-operator hs-var">%=</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114423"><span class="hs-identifier hs-var">i</span></a><span class="hs-glyph">:</span><span class="hs-special">)</span><span> </span><a name="line-237"></a><span> </span><a name="line-238"></a><span class="hs-comment">-- | Produce a GraphDef proto representation of the nodes that are rendered in</span><span> </span><a name="line-239"></a><span class="hs-comment">-- the given 'Build' action.</span><span> </span><a name="line-240"></a><span class="hs-identifier">asGraphDef</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a href="#local-6989586621679114384"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">GraphDef</span><span> </span><a name="line-241"></a><a name="asGraphDef"><a href="TensorFlow.Build.html#asGraphDef"><span class="hs-identifier">asGraphDef</span></a></a><span> </span><a name="local-6989586621679114424"><a href="#local-6989586621679114424"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">def</span><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">node</span><span> </span><span class="hs-operator hs-var">.~</span><span> </span><a href="#local-6989586621679114425"><span class="hs-identifier hs-var">gs</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><a href="TensorFlow.Build.html#nodeBuffer"><span class="hs-identifier hs-var">nodeBuffer</span></a><span> </span><a name="line-242"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="line-243"></a><span> </span><a name="local-6989586621679114425"><a href="#local-6989586621679114425"><span class="hs-identifier">gs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">snd</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier">runIdentity</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="TensorFlow.Build.html#runBuildT"><span class="hs-identifier hs-var">runBuildT</span></a><span> </span><a href="#local-6989586621679114424"><span class="hs-identifier hs-var">b</span></a><span> </span><a name="line-244"></a><span> </span><a name="line-245"></a><span class="hs-comment">-- TODO: check against existing nodes for conflicts?</span><span> </span><a name="line-246"></a><span class="hs-identifier">addGraphDef</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><a href="#local-6989586621679114383"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">GraphDef</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114383"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><a name="line-247"></a><a name="addGraphDef"><a href="TensorFlow.Build.html#addGraphDef"><span class="hs-identifier">addGraphDef</span></a></a><span> </span><a name="local-6989586621679114426"><a href="#local-6989586621679114426"><span class="hs-identifier">g</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#build"><span class="hs-identifier hs-var">build</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="TensorFlow.Build.html#nodeBuffer"><span class="hs-identifier hs-var">nodeBuffer</span></a><span> </span><span class="hs-operator hs-var"><>=</span><span> </span><a href="#local-6989586621679114426"><span class="hs-identifier hs-var">g</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><span class="hs-identifier hs-var">node</span><span> </span><a name="line-248"></a><span> </span><a name="line-249"></a><span class="hs-comment">-- | Render the given op if it hasn't been rendered already, and return its</span><span> </span><a name="line-250"></a><span class="hs-comment">-- name.</span><span> </span><a name="line-251"></a><span class="hs-identifier">getOrAddOp</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#OpDef"><span class="hs-identifier hs-type">OpDef</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><a name="line-252"></a><a name="getOrAddOp"><a href="TensorFlow.Build.html#getOrAddOp"><span class="hs-identifier">getOrAddOp</span></a></a><span> </span><a name="local-6989586621679114427"><a href="#local-6989586621679114427"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><a name="line-253"></a><span> </span><a name="local-6989586621679114428"><a href="#local-6989586621679114428"><span class="hs-identifier">pending</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="TensorFlow.Build.html#getPendingNode"><span class="hs-identifier hs-var">getPendingNode</span></a><span> </span><a href="#local-6989586621679114427"><span class="hs-identifier hs-var">o</span></a><span> </span><a name="line-254"></a><span> </span><span class="hs-identifier hs-var">uses</span><span> </span><a href="TensorFlow.Build.html#renderedNodes"><span class="hs-identifier hs-var">renderedNodes</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Map</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">lookup</span><span> </span><a href="#local-6989586621679114428"><span class="hs-identifier hs-var">pending</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">>>=</span><span> </span><span class="hs-glyph">\</span><span class="hs-keyword">case</span><span> </span><a name="line-255"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679114429"><a href="#local-6989586621679114429"><span class="hs-identifier">n</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-var">NodeName</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679114429"><span class="hs-identifier hs-var">n</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><span class="hs-identifier hs-var">name</span><span> </span><a name="line-256"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#addNewOpFromPending"><span class="hs-identifier hs-var">addNewOpFromPending</span></a><span> </span><a href="#local-6989586621679114428"><span class="hs-identifier hs-var">pending</span></a><span> </span><a name="line-257"></a><span> </span><a name="line-258"></a><span class="hs-identifier">lookupNode</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><span class="hs-identifier hs-type">NodeDef</span><span> </span><a name="line-259"></a><a name="lookupNode"><a href="TensorFlow.Build.html#lookupNode"><span class="hs-identifier">lookupNode</span></a></a><span> </span><a name="local-6989586621679114430"><a href="#local-6989586621679114430"><span class="hs-identifier">n</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">uses</span><span> </span><a href="TensorFlow.Build.html#renderedNodeDefs"><span class="hs-identifier hs-var">renderedNodeDefs</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Map</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">lookup</span><span> </span><a href="#local-6989586621679114430"><span class="hs-identifier hs-var">n</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">>>=</span><span> </span><span class="hs-glyph">\</span><span class="hs-keyword">case</span><span> </span><a name="line-260"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679114431"><a href="#local-6989586621679114431"><span class="hs-identifier">n'</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679114431"><span class="hs-identifier hs-var">n'</span></a><span> </span><a name="line-261"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">error</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"lookupNode: unknown node name "</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679114430"><span class="hs-identifier hs-var">n</span></a><span> </span><a name="line-262"></a><span> </span><a name="line-263"></a><span class="hs-comment">-- | Add a new node for a given 'OpDef'. This is used for making "stateful" ops</span><span> </span><a name="line-264"></a><span class="hs-comment">-- which are not safe to dedup (e.g, "variable" and "assign").</span><span> </span><a name="line-265"></a><span class="hs-identifier">addNewOp</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#OpDef"><span class="hs-identifier hs-type">OpDef</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><a name="line-266"></a><a name="addNewOp"><a href="TensorFlow.Build.html#addNewOp"><span class="hs-identifier">addNewOp</span></a></a><span> </span><a name="local-6989586621679114432"><a href="#local-6989586621679114432"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#getPendingNode"><span class="hs-identifier hs-var">getPendingNode</span></a><span> </span><a href="#local-6989586621679114432"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">>>=</span><span> </span><a href="TensorFlow.Build.html#addNewOpFromPending"><span class="hs-identifier hs-var">addNewOpFromPending</span></a><span> </span><a name="line-267"></a><span> </span><a name="line-268"></a><span class="hs-identifier">addNewOpFromPending</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-type">PendingNode</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><a name="line-269"></a><a name="addNewOpFromPending"><a href="TensorFlow.Build.html#addNewOpFromPending"><span class="hs-identifier">addNewOpFromPending</span></a></a><span> </span><a name="local-6989586621679114433"><a href="#local-6989586621679114433"><span class="hs-identifier">pending</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><a name="line-270"></a><span> </span><a name="local-6989586621679114434"><a href="#local-6989586621679114434"><span class="hs-identifier">nodeName</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="TensorFlow.Build.html#renderPendingNode"><span class="hs-identifier hs-var">renderPendingNode</span></a><span> </span><a href="#local-6989586621679114433"><span class="hs-identifier hs-var">pending</span></a><span> </span><a name="line-271"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679114435"><a href="#local-6989586621679114435"><span class="hs-identifier">nodeDef</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#pendingNodeDef"><span class="hs-identifier hs-var">pendingNodeDef</span></a><span> </span><a href="#local-6989586621679114433"><span class="hs-identifier hs-var">pending</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">name</span><span> </span><span class="hs-operator hs-var">.~</span><span> </span><span class="hs-identifier">unNodeName</span><span> </span><a href="#local-6989586621679114434"><span class="hs-identifier hs-var">nodeName</span></a><span> </span><a name="line-272"></a><span> </span><a href="TensorFlow.Build.html#nodeBuffer"><span class="hs-identifier hs-var">nodeBuffer</span></a><span> </span><span class="hs-operator hs-var">%=</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114435"><span class="hs-identifier hs-var">nodeDef</span></a><span> </span><span class="hs-glyph">:</span><span class="hs-special">)</span><span> </span><a name="line-273"></a><span> </span><a href="TensorFlow.Build.html#renderedNodes"><span class="hs-identifier hs-var">renderedNodes</span></a><span> </span><span class="hs-operator hs-var">%=</span><span> </span><span class="hs-identifier hs-var">Map</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">insert</span><span> </span><a href="#local-6989586621679114433"><span class="hs-identifier hs-var">pending</span></a><span> </span><a href="#local-6989586621679114435"><span class="hs-identifier hs-var">nodeDef</span></a><span> </span><a name="line-274"></a><span> </span><a href="TensorFlow.Build.html#renderedNodeDefs"><span class="hs-identifier hs-var">renderedNodeDefs</span></a><span> </span><span class="hs-operator hs-var">%=</span><span> </span><span class="hs-identifier hs-var">Map</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">insert</span><span> </span><a href="#local-6989586621679114434"><span class="hs-identifier hs-var">nodeName</span></a><span> </span><a href="#local-6989586621679114435"><span class="hs-identifier hs-var">nodeDef</span></a><span> </span><a name="line-275"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679114434"><span class="hs-identifier hs-var">nodeName</span></a><span> </span><a name="line-276"></a><span> </span><a name="line-277"></a><span class="hs-comment">-- | Get the pending node corresponding to an OpDef, which may or may not have</span><span> </span><a name="line-278"></a><span class="hs-comment">-- been rendered before. Implicitly renders all of this node's inputs.</span><span> </span><a name="line-279"></a><span class="hs-identifier">getPendingNode</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#OpDef"><span class="hs-identifier hs-type">OpDef</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-type">PendingNode</span></a><span> </span><a name="line-280"></a><a name="getPendingNode"><a href="TensorFlow.Build.html#getPendingNode"><span class="hs-identifier">getPendingNode</span></a></a><span> </span><a name="local-6989586621679114436"><a href="#local-6989586621679114436"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><a name="line-281"></a><span> </span><span class="hs-comment">-- An empty string in the proto field means that no specific</span><span> </span><a name="line-282"></a><span> </span><span class="hs-comment">-- device is specified.</span><span> </span><a name="line-283"></a><span> </span><a name="local-6989586621679114438"><a href="#local-6989586621679114438"><span class="hs-identifier">dev</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">maybe</span><span> </span><span class="hs-string">""</span><span> </span><span class="hs-identifier">deviceName</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-identifier hs-var">use</span><span> </span><a href="TensorFlow.Build.html#defaultDevice"><span class="hs-identifier hs-var">defaultDevice</span></a><span> </span><a name="line-284"></a><span> </span><a name="local-6989586621679114439"><a href="#local-6989586621679114439"><span class="hs-identifier">scope</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">use</span><span> </span><a href="TensorFlow.Build.html#currentScope"><span class="hs-identifier hs-var">currentScope</span></a><span> </span><a name="line-285"></a><span> </span><a name="local-6989586621679114440"><a href="#local-6989586621679114440"><span class="hs-identifier">controls</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">use</span><span> </span><a href="TensorFlow.Build.html#defaultControlInputs"><span class="hs-identifier hs-var">defaultControlInputs</span></a><span> </span><a name="line-286"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679114441"><a href="#local-6989586621679114441"><span class="hs-identifier">inputs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">map</span><span> </span><a href="TensorFlow.Build.html#encodeOutput"><span class="hs-identifier hs-var">encodeOutput</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114436"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><a href="TensorFlow.Output.html#opInputs"><span class="hs-identifier hs-var">opInputs</span></a><span class="hs-special">)</span><span> </span><a name="line-287"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679114442"><a href="#local-6989586621679114442"><span class="hs-identifier">controlInputs</span></a></a><span> </span><a name="line-288"></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">map</span><span> </span><a href="#local-6989586621679114437"><span class="hs-identifier hs-var">makeDep</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114436"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><a href="TensorFlow.Output.html#opControlInputs"><span class="hs-identifier hs-var">opControlInputs</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-identifier hs-var">Set</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toList</span><span> </span><a href="#local-6989586621679114440"><span class="hs-identifier hs-var">controls</span></a><span class="hs-special">)</span><span> </span><a name="line-289"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-var">PendingNode</span></a><span> </span><a href="#local-6989586621679114439"><span class="hs-identifier hs-var">scope</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114436"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><a href="TensorFlow.Output.html#opName"><span class="hs-identifier hs-var">opName</span></a><span class="hs-special">)</span><span> </span><a name="line-290"></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">def</span><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">op</span><span> </span><span class="hs-operator hs-var">.~</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">unOpType</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114436"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><a href="TensorFlow.Output.html#opType"><span class="hs-identifier hs-var">opType</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span> </span><a name="line-291"></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">attr</span><span> </span><span class="hs-operator hs-var">.~</span><span> </span><span class="hs-identifier">_opAttrs</span><span> </span><a href="#local-6989586621679114436"><span class="hs-identifier hs-var">o</span></a><span> </span><a name="line-292"></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">input</span><span> </span><span class="hs-operator hs-var">.~</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114441"><span class="hs-identifier hs-var">inputs</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><a href="#local-6989586621679114442"><span class="hs-identifier hs-var">controlInputs</span></a><span class="hs-special">)</span><span> </span><a name="line-293"></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><span class="hs-identifier hs-var">device</span><span> </span><span class="hs-operator hs-var">.~</span><span> </span><a href="#local-6989586621679114438"><span class="hs-identifier hs-var">dev</span></a><span> </span><a name="line-294"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="line-295"></a><span> </span><a name="local-6989586621679114437"><a href="#local-6989586621679114437"><span class="hs-identifier">makeDep</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-string">"^"</span><span> </span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unNodeName</span><span> </span><a name="line-296"></a><span> </span><a name="line-297"></a><span class="hs-comment">-- | Pick a name for a pending node. If it has an explicit name, just use that;</span><span> </span><a name="line-298"></a><span class="hs-comment">-- if the name is implicit, assign a new unique name based on the op type.</span><span> </span><a name="line-299"></a><span class="hs-identifier">renderPendingNode</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-type">PendingNode</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="TensorFlow.Build.html#Build"><span class="hs-identifier hs-type">Build</span></a><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><a name="line-300"></a><a name="renderPendingNode"><a href="TensorFlow.Build.html#renderPendingNode"><span class="hs-identifier">renderPendingNode</span></a></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#PendingNode"><span class="hs-identifier hs-var">PendingNode</span></a><span> </span><a name="local-6989586621679114443"><a href="#local-6989586621679114443"><span class="hs-identifier">scope</span></a></a><span> </span><a name="local-6989586621679114444"><a href="#local-6989586621679114444"><span class="hs-identifier">pendingName</span></a></a><span> </span><a name="local-6989586621679114445"><a href="#local-6989586621679114445"><span class="hs-identifier">nodeDef</span></a></a><span class="hs-special">)</span><span> </span><a name="line-301"></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-var">NodeName</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114446"><span class="hs-identifier hs-var">scopePrefix</span></a><span> </span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679114447"><span class="hs-identifier hs-var">getName</span></a><span> </span><a name="line-302"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="line-303"></a><span> </span><a name="local-6989586621679114446"><a href="#local-6989586621679114446"><span class="hs-identifier">scopePrefix</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Text</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concat</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">"/"</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unScope</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679114443"><span class="hs-identifier hs-var">scope</span></a><span> </span><a name="line-304"></a><span> </span><a name="local-6989586621679114447"><a href="#local-6989586621679114447"><span class="hs-identifier">getName</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="#local-6989586621679114444"><span class="hs-identifier hs-var">pendingName</span></a><span> </span><span class="hs-keyword">of</span><span> </span><a name="line-305"></a><span> </span><a href="TensorFlow.Output.html#ExplicitName"><span class="hs-identifier hs-var">ExplicitName</span></a><span> </span><a name="local-6989586621679114448"><a href="#local-6989586621679114448"><span class="hs-identifier">n</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679114448"><span class="hs-identifier hs-var">n</span></a><span> </span><a name="line-306"></a><span> </span><a href="TensorFlow.Output.html#ImplicitName"><span class="hs-identifier hs-var">ImplicitName</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><a name="line-307"></a><span> </span><a name="local-6989586621679114449"><a href="#local-6989586621679114449"><span class="hs-identifier">u</span></a></a><span class="hs-glyph">@</span><span class="hs-special">(</span><a href="TensorFlow.Build.html#Unique"><span class="hs-identifier hs-var">Unique</span></a><span> </span><a name="local-6989586621679114450"><a href="#local-6989586621679114450"><span class="hs-identifier">k</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">use</span><span> </span><a href="TensorFlow.Build.html#nextUnique"><span class="hs-identifier hs-var">nextUnique</span></a><span> </span><a name="line-308"></a><span> </span><a href="TensorFlow.Build.html#nextUnique"><span class="hs-identifier hs-var">nextUnique</span></a><span> </span><span class="hs-operator hs-var">.=</span><span> </span><span class="hs-identifier hs-var">succ</span><span> </span><a href="#local-6989586621679114449"><span class="hs-identifier hs-var">u</span></a><span> </span><a name="line-309"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679114445"><span class="hs-identifier hs-var">nodeDef</span></a><span> </span><span class="hs-operator hs-var">^.</span><span> </span><span class="hs-identifier hs-var">op</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">"_"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier hs-var">Text</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679114450"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">)</span><span> </span><a name="line-310"></a><span> </span><a name="line-311"></a><span class="hs-comment">-- | Turn an 'Output' into a string representation for the TensorFlow</span><span> </span><a name="line-312"></a><span class="hs-comment">-- foreign APIs.</span><span> </span><a name="line-313"></a><span class="hs-identifier">encodeOutput</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Output.html#Output"><span class="hs-identifier hs-type">Output</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><a name="line-314"></a><a name="encodeOutput"><a href="TensorFlow.Build.html#encodeOutput"><span class="hs-identifier">encodeOutput</span></a></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Output.html#Output"><span class="hs-identifier hs-var">Output</span></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Output.html#OutputIx"><span class="hs-identifier hs-var">OutputIx</span></a><span> </span><span class="hs-number">0</span><span class="hs-special">)</span><span> </span><a name="local-6989586621679114451"><a href="#local-6989586621679114451"><span class="hs-identifier">n</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">unNodeName</span><span> </span><a href="#local-6989586621679114451"><span class="hs-identifier hs-var">n</span></a><span> </span><a name="line-315"></a><span class="hs-identifier">encodeOutput</span><span> </span><span class="hs-special">(</span><a href="TensorFlow.Output.html#Output"><span class="hs-identifier hs-var">Output</span></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Output.html#OutputIx"><span class="hs-identifier hs-var">OutputIx</span></a><span> </span><a name="local-6989586621679114452"><a href="#local-6989586621679114452"><span class="hs-identifier">i</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679114453"><a href="#local-6989586621679114453"><span class="hs-identifier">n</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">unNodeName</span><span> </span><a href="#local-6989586621679114453"><span class="hs-identifier hs-var">n</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier hs-var">Text</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-special">(</span><span class="hs-char">':'</span><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679114452"><span class="hs-identifier hs-var">i</span></a><span class="hs-special">)</span><span> </span><a name="line-316"></a><span> </span><a name="line-317"></a><span class="hs-comment">-- | Modify some part of the state, run an action, and restore the state</span><span> </span><a name="line-318"></a><span class="hs-comment">-- after that action is done.</span><span> </span><a name="line-319"></a><span class="hs-identifier">withStateLens</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><a href="#local-6989586621679114380"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Lens'</span><span> </span><a href="TensorFlow.Build.html#GraphState"><span class="hs-identifier hs-type">GraphState</span></a><span> </span><a href="#local-6989586621679114381"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114381"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114381"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114380"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114382"><span class="hs-identifier hs-type">b</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114380"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114382"><span class="hs-identifier hs-type">b</span></a><span> </span><a name="line-320"></a><a name="withStateLens"><a href="TensorFlow.Build.html#withStateLens"><span class="hs-identifier">withStateLens</span></a></a><span> </span><a name="local-6989586621679114454"><a href="#local-6989586621679114454"><span class="hs-identifier">accessor</span></a></a><span> </span><a name="local-6989586621679114455"><a href="#local-6989586621679114455"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679114456"><a href="#local-6989586621679114456"><span class="hs-identifier">act</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><a name="line-321"></a><span> </span><a name="local-6989586621679114457"><a href="#local-6989586621679114457"><span class="hs-identifier">old</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="TensorFlow.Build.html#build"><span class="hs-identifier hs-var">build</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">use</span><span> </span><a href="#local-6989586621679114454"><span class="hs-identifier hs-var">accessor</span></a><span> </span><a name="line-322"></a><span> </span><a href="TensorFlow.Build.html#build"><span class="hs-identifier hs-var">build</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679114454"><span class="hs-identifier hs-var">accessor</span></a><span> </span><span class="hs-operator hs-var">%=</span><span> </span><a href="#local-6989586621679114455"><span class="hs-identifier hs-var">f</span></a><span> </span><a name="line-323"></a><span> </span><a name="local-6989586621679114458"><a href="#local-6989586621679114458"><span class="hs-identifier">result</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="#local-6989586621679114456"><span class="hs-identifier hs-var">act</span></a><span> </span><a name="line-324"></a><span> </span><a href="TensorFlow.Build.html#build"><span class="hs-identifier hs-var">build</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679114454"><span class="hs-identifier hs-var">accessor</span></a><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679114457"><span class="hs-identifier hs-var">old</span></a><span> </span><a name="line-325"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679114458"><span class="hs-identifier hs-var">result</span></a><span> </span><a name="line-326"></a><span> </span><a name="line-327"></a><span class="hs-comment">-- | Set a device for all nodes rendered in the given 'Build' action</span><span> </span><a name="line-328"></a><span class="hs-comment">-- (unless further overridden by another use of withDevice).</span><span> </span><a name="line-329"></a><span class="hs-identifier">withDevice</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><a href="#local-6989586621679114378"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="TensorFlow.Output.html#Device"><span class="hs-identifier hs-type">Device</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114378"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114379"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114378"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114379"><span class="hs-identifier hs-type">a</span></a><span> </span><a name="line-330"></a><a name="withDevice"><a href="TensorFlow.Build.html#withDevice"><span class="hs-identifier">withDevice</span></a></a><span> </span><a name="local-6989586621679114459"><a href="#local-6989586621679114459"><span class="hs-identifier">d</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#withStateLens"><span class="hs-identifier hs-var">withStateLens</span></a><span> </span><a href="TensorFlow.Build.html#defaultDevice"><span class="hs-identifier hs-var">defaultDevice</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">const</span><span> </span><a href="#local-6989586621679114459"><span class="hs-identifier hs-var">d</span></a><span class="hs-special">)</span><span> </span><a name="line-331"></a><span> </span><a name="line-332"></a><span class="hs-comment">-- | Prepend a scope to all nodes rendered in the given 'Build' action.</span><span> </span><a name="line-333"></a><span class="hs-identifier">withNameScope</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><a href="#local-6989586621679114376"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114376"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114377"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114376"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114377"><span class="hs-identifier hs-type">a</span></a><span> </span><a name="line-334"></a><a name="withNameScope"><a href="TensorFlow.Build.html#withNameScope"><span class="hs-identifier">withNameScope</span></a></a><span> </span><a name="local-6989586621679114460"><a href="#local-6989586621679114460"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#withStateLens"><span class="hs-identifier hs-var">withStateLens</span></a><span> </span><a href="TensorFlow.Build.html#currentScope"><span class="hs-identifier hs-var">currentScope</span></a><span> </span><span class="hs-special">(</span><a href="TensorFlow.Build.html#Scope"><span class="hs-identifier hs-var">Scope</span></a><span> </span><a href="#local-6989586621679114460"><span class="hs-identifier hs-var">s</span></a><span> </span><span class="hs-glyph">:</span><span class="hs-special">)</span><span> </span><a name="line-335"></a><span> </span><a name="line-336"></a><span class="hs-comment">-- | Add control inputs to all nodes rendered in the given 'Build' action.</span><span> </span><a name="line-337"></a><span class="hs-identifier">withNodeDependencies</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="TensorFlow.Build.html#MonadBuild"><span class="hs-identifier hs-type">MonadBuild</span></a><span> </span><a href="#local-6989586621679114374"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Set</span><span> </span><a href="TensorFlow.Output.html#NodeName"><span class="hs-identifier hs-type">NodeName</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114374"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114375"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114374"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114375"><span class="hs-identifier hs-type">a</span></a><span> </span><a name="line-338"></a><a name="withNodeDependencies"><a href="TensorFlow.Build.html#withNodeDependencies"><span class="hs-identifier">withNodeDependencies</span></a></a><span> </span><a name="local-6989586621679114461"><a href="#local-6989586621679114461"><span class="hs-identifier">nodes</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="TensorFlow.Build.html#withStateLens"><span class="hs-identifier hs-var">withStateLens</span></a><span> </span><a href="TensorFlow.Build.html#defaultControlInputs"><span class="hs-identifier hs-var">defaultControlInputs</span></a><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679114461"><span class="hs-identifier hs-var">nodes</span></a><span class="hs-special">)</span><span> </span><a name="line-339"></a></pre></body></html>