<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ -->
<title>src/TensorFlow/OpGen/AttrVal.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>-- Copyright 2016 TensorFlow authors.</span>
<a name="line-2"></a><span class='hs-comment'>--</span>
<a name="line-3"></a><span class='hs-comment'>-- Licensed under the Apache License, Version 2.0 (the "License");</span>
<a name="line-4"></a><span class='hs-comment'>-- you may not use this file except in compliance with the License.</span>
<a name="line-5"></a><span class='hs-comment'>-- You may obtain a copy of the License at</span>
<a name="line-6"></a><span class='hs-comment'>--</span>
<a name="line-7"></a><span class='hs-comment'>-- <a href="http://www.apache.org/licenses/LICENSE-2.0">http://www.apache.org/licenses/LICENSE-2.0</a></span>
<a name="line-8"></a><span class='hs-comment'>--</span>
<a name="line-9"></a><span class='hs-comment'>-- Unless required by applicable law or agreed to in writing, software</span>
<a name="line-10"></a><span class='hs-comment'>-- distributed under the License is distributed on an "AS IS" BASIS,</span>
<a name="line-11"></a><span class='hs-comment'>-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.</span>
<a name="line-12"></a><span class='hs-comment'>-- See the License for the specific language governing permissions and</span>
<a name="line-13"></a><span class='hs-comment'>-- limitations under the License.</span>
<a name="line-14"></a>
<a name="line-15"></a><span class='hs-comment'>{-# LANGUAGE OverloadedStrings #-}</span>
<a name="line-16"></a>
<a name="line-17"></a><span class='hs-comment'>-- | Wrapping of TensorFlow attributes into Haskell entities.</span>
<a name="line-18"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>TensorFlow</span><span class='hs-varop'>.</span><span class='hs-conid'>OpGen</span><span class='hs-varop'>.</span><span class='hs-conid'>AttrVal</span>
<a name="line-19"></a> <span class='hs-layout'>(</span><span class='hs-conid'>AttrDef</span>
<a name="line-20"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>AttrCase</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span>
<a name="line-21"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>AttrTemplate</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span>
<a name="line-22"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>Template</span>
<a name="line-23"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>attrDef</span>
<a name="line-24"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>attrOriginal</span>
<a name="line-25"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>attrTemplate</span>
<a name="line-26"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>templateDefault</span>
<a name="line-27"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>templateRestrictions</span>
<a name="line-28"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-29"></a>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Int</span> <span class='hs-layout'>(</span><span class='hs-conid'>Int64</span><span class='hs-layout'>)</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Monoid</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varop'><></span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Lens</span><span class='hs-varop'>.</span><span class='hs-conid'>Family2</span> <span class='hs-layout'>(</span><span class='hs-conid'>Lens'</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-varop'>^.</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Lens</span><span class='hs-varop'>.</span><span class='hs-conid'>Family2</span><span class='hs-varop'>.</span><span class='hs-conid'>Unchecked</span> <span class='hs-layout'>(</span><span class='hs-varid'>lens</span><span class='hs-layout'>)</span>
<a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Proto</span><span class='hs-varop'>.</span><span class='hs-conid'>Tensorflow</span><span class='hs-varop'>.</span><span class='hs-conid'>Core</span><span class='hs-varop'>.</span><span class='hs-conid'>Framework</span><span class='hs-varop'>.</span><span class='hs-conid'>AttrValue</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>AttrValue</span>
<a name="line-35"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Proto</span><span class='hs-varop'>.</span><span class='hs-conid'>Tensorflow</span><span class='hs-varop'>.</span><span class='hs-conid'>Core</span><span class='hs-varop'>.</span><span class='hs-conid'>Framework</span><span class='hs-varop'>.</span><span class='hs-conid'>OpDef</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>OpDef</span>
<a name="line-36"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Proto</span><span class='hs-varop'>.</span><span class='hs-conid'>Tensorflow</span><span class='hs-varop'>.</span><span class='hs-conid'>Core</span><span class='hs-varop'>.</span><span class='hs-conid'>Framework</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span> <span class='hs-layout'>(</span><span class='hs-conid'>DataType</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-37"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Proto</span><span class='hs-varop'>.</span><span class='hs-conid'>Tensorflow</span><span class='hs-varop'>.</span><span class='hs-conid'>Core</span><span class='hs-varop'>.</span><span class='hs-conid'>Framework</span><span class='hs-varop'>.</span><span class='hs-conid'>TensorShape</span> <span class='hs-layout'>(</span><span class='hs-conid'>TensorShapeProto</span><span class='hs-layout'>)</span>
<a name="line-38"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>B</span>
<a name="line-39"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Text</span>
<a name="line-40"></a>
<a name="line-41"></a><a name="Template"></a><span class='hs-comment'>-- | Specifies the optional default value and a set of allowed values</span>
<a name="line-42"></a><a name="Template"></a><span class='hs-comment'>-- for the given type.</span>
<a name="line-43"></a><a name="Template"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Template</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Template</span> <span class='hs-layout'>{</span>
<a name="line-44"></a> <span class='hs-sel'>_templateDefault</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-varid'>a</span>
<a name="line-45"></a> <span class='hs-comment'>-- ^ The default value (mandatory if unspecified)</span>
<a name="line-46"></a> <span class='hs-layout'>,</span> <span class='hs-sel'>_templateRestrictions</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span>
<a name="line-47"></a> <span class='hs-comment'>-- ^ The allowed set of values, empty if no restrictions</span>
<a name="line-48"></a> <span class='hs-layout'>}</span>
<a name="line-49"></a>
<a name="line-50"></a><a name="templateDefault"></a><span class='hs-definition'>templateDefault</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Lens'</span> <span class='hs-layout'>(</span><span class='hs-conid'>Template</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span>
<a name="line-51"></a><span class='hs-definition'>templateDefault</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lens</span> <span class='hs-sel'>_templateDefault</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>g</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>g</span> <span class='hs-layout'>{</span> <span class='hs-sel'>_templateDefault</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-52"></a>
<a name="line-53"></a><a name="templateRestrictions"></a><span class='hs-definition'>templateRestrictions</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Lens'</span> <span class='hs-layout'>(</span><span class='hs-conid'>Template</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span>
<a name="line-54"></a><span class='hs-definition'>templateRestrictions</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lens</span> <span class='hs-sel'>_templateRestrictions</span>
<a name="line-55"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>g</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>g</span> <span class='hs-layout'>{</span> <span class='hs-sel'>_templateRestrictions</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-56"></a>
<a name="line-57"></a><a name="UnusedTensor"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>UnusedTensor</span>
<a name="line-58"></a>
<a name="line-59"></a><a name="AttrCase"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>AttrCase</span> <span class='hs-varid'>f</span>
<a name="line-60"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrBytes</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- bytes s = 2; // "string"</span>
<a name="line-61"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AttrInt64</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-conid'>Int64</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- int64 i = 3; // "int"</span>
<a name="line-62"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AttrFloat</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-conid'>Float</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- float f = 4; // "float"</span>
<a name="line-63"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AttrBool</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- bool b = 5; // "bool"</span>
<a name="line-64"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AttrType</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-conid'>DataType</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- type = 6; // "type"</span>
<a name="line-65"></a> <span class='hs-comment'>-- To be translated into TensorFlow.Types.Shape before use.</span>
<a name="line-66"></a> <span class='hs-comment'>-- Leaving as a proto to reduce dependencies.</span>
<a name="line-67"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AttrShape</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span> <span class='hs-conid'>TensorShapeProto</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- shape = 7; // "shape"</span>
<a name="line-68"></a>
<a name="line-69"></a><a name="AttrTemplate"></a><span class='hs-comment'>-- | Type-reified representation of TensorFlow AttrDef.</span>
<a name="line-70"></a><a name="AttrTemplate"></a><span class='hs-comment'>-- Initially limited to just the types in Op descriptors.</span>
<a name="line-71"></a><a name="AttrTemplate"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>AttrTemplate</span>
<a name="line-72"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrSingle</span> <span class='hs-layout'>(</span><span class='hs-conid'>AttrCase</span> <span class='hs-conid'>Template</span><span class='hs-layout'>)</span>
<a name="line-73"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AttrList</span> <span class='hs-layout'>(</span><span class='hs-conid'>AttrCase</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span>
<a name="line-74"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AttrTensor</span> <span class='hs-conid'>UnusedTensor</span> <span class='hs-comment'>-- tensor = 8; // "tensor"</span>
<a name="line-75"></a>
<a name="line-76"></a><a name="AttrDef"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>AttrDef</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrDef</span> <span class='hs-layout'>{</span>
<a name="line-77"></a> <span class='hs-sel'>_attrOriginal</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>OpDef'AttrDef</span> <span class='hs-comment'>-- ^ the proto this value was created from</span>
<a name="line-78"></a> <span class='hs-layout'>,</span> <span class='hs-sel'>_attrTemplate</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AttrTemplate</span> <span class='hs-comment'>-- ^ the type of the attribute</span>
<a name="line-79"></a> <span class='hs-layout'>}</span>
<a name="line-80"></a>
<a name="line-81"></a><a name="attrTemplate"></a><span class='hs-definition'>attrTemplate</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Lens'</span> <span class='hs-conid'>AttrDef</span> <span class='hs-conid'>AttrTemplate</span>
<a name="line-82"></a><span class='hs-definition'>attrTemplate</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lens</span> <span class='hs-sel'>_attrTemplate</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>g</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>g</span> <span class='hs-layout'>{</span> <span class='hs-sel'>_attrTemplate</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-83"></a>
<a name="line-84"></a><a name="attrOriginal"></a><span class='hs-definition'>attrOriginal</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Lens'</span> <span class='hs-conid'>AttrDef</span> <span class='hs-conid'>OpDef'AttrDef</span>
<a name="line-85"></a><span class='hs-definition'>attrOriginal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lens</span> <span class='hs-sel'>_attrOriginal</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>g</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>g</span> <span class='hs-layout'>{</span> <span class='hs-sel'>_attrOriginal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-86"></a>
<a name="line-87"></a><a name="attrDef"></a><span class='hs-definition'>attrDef</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>OpDef'AttrDef</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>AttrDef</span>
<a name="line-88"></a><span class='hs-definition'>attrDef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrDef</span> <span class='hs-varid'>a</span>
<a name="line-89"></a> <span class='hs-varop'>$</span> <span class='hs-varid'>translate</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-varop'>^.</span><span class='hs-conid'>OpDef</span><span class='hs-varop'>.</span><span class='hs-varid'>type'</span><span class='hs-layout'>)</span>
<a name="line-90"></a> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-varop'>^.</span><span class='hs-conid'>OpDef</span><span class='hs-varop'>.</span><span class='hs-varid'>defaultValue</span><span class='hs-layout'>)</span>
<a name="line-91"></a> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-varop'>^.</span><span class='hs-varid'>allowedValues</span><span class='hs-layout'>)</span>
<a name="line-92"></a>
<a name="line-93"></a><a name="translate"></a><span class='hs-comment'>-- | Converts the given AttrValue with the type given by the string</span>
<a name="line-94"></a><span class='hs-comment'>-- into the AttrVal if the type is known.</span>
<a name="line-95"></a><span class='hs-definition'>translate</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span> <span class='hs-comment'>-- ^ one of the TensorFlow type strings</span>
<a name="line-96"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>AttrValue</span> <span class='hs-comment'>-- ^ default value</span>
<a name="line-97"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>AttrValue</span> <span class='hs-comment'>-- ^ allowed values</span>
<a name="line-98"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>AttrTemplate</span>
<a name="line-99"></a><span class='hs-definition'>translate</span> <span class='hs-varid'>t</span> <span class='hs-varid'>defaults</span> <span class='hs-varid'>allowed</span>
<a name="line-100"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"string"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeVal</span> <span class='hs-conid'>AttrBytes</span> <span class='hs-varid'>maybe's</span> <span class='hs-varid'>s</span>
<a name="line-101"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"int"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeVal</span> <span class='hs-conid'>AttrInt64</span> <span class='hs-varid'>maybe'i</span> <span class='hs-varid'>i</span>
<a name="line-102"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"float"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeVal</span> <span class='hs-conid'>AttrFloat</span> <span class='hs-varid'>maybe'f</span> <span class='hs-varid'>f</span>
<a name="line-103"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"bool"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeVal</span> <span class='hs-conid'>AttrBool</span> <span class='hs-varid'>maybe'b</span> <span class='hs-varid'>b</span>
<a name="line-104"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"type"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeVal</span> <span class='hs-conid'>AttrType</span> <span class='hs-conid'>AttrValue</span><span class='hs-varop'>.</span><span class='hs-varid'>maybe'type'</span> <span class='hs-conid'>AttrValue</span><span class='hs-varop'>.</span><span class='hs-varid'>type'</span>
<a name="line-105"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"shape"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeVal</span> <span class='hs-conid'>AttrShape</span> <span class='hs-varid'>maybe'shape</span> <span class='hs-varid'>shape</span>
<a name="line-106"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"tensor"</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrTensor</span> <span class='hs-varop'>$</span> <span class='hs-varid'>error</span> <span class='hs-str'>"tensor is unimplemented"</span>
<a name="line-107"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"list(string)"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeList</span> <span class='hs-conid'>AttrBytes</span> <span class='hs-varop'>$</span> <span class='hs-varid'>list</span><span class='hs-varop'>.</span><span class='hs-varid'>s</span>
<a name="line-108"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"list(int)"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeList</span> <span class='hs-conid'>AttrInt64</span> <span class='hs-varop'>$</span> <span class='hs-varid'>list</span><span class='hs-varop'>.</span><span class='hs-varid'>i</span>
<a name="line-109"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"list(float)"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeList</span> <span class='hs-conid'>AttrFloat</span> <span class='hs-varop'>$</span> <span class='hs-varid'>list</span><span class='hs-varop'>.</span><span class='hs-varid'>f</span>
<a name="line-110"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"list(bool)"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeList</span> <span class='hs-conid'>AttrBool</span> <span class='hs-varop'>$</span> <span class='hs-varid'>list</span><span class='hs-varop'>.</span><span class='hs-varid'>b</span>
<a name="line-111"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"list(type)"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeList</span> <span class='hs-conid'>AttrType</span> <span class='hs-varop'>$</span> <span class='hs-varid'>list</span><span class='hs-varop'>.</span><span class='hs-conid'>AttrValue</span><span class='hs-varop'>.</span><span class='hs-varid'>type'</span>
<a name="line-112"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"list(shape)"</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeList</span> <span class='hs-conid'>AttrShape</span> <span class='hs-varop'>$</span> <span class='hs-varid'>list</span><span class='hs-varop'>.</span><span class='hs-varid'>shape</span>
<a name="line-113"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"list(tensor)"</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrTensor</span> <span class='hs-varop'>$</span> <span class='hs-varid'>error</span> <span class='hs-str'>"list(tensor) is unimplemented"</span>
<a name="line-114"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>t</span> <span class='hs-varop'>==</span> <span class='hs-str'>"func"</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrTensor</span> <span class='hs-varop'>$</span> <span class='hs-varid'>error</span> <span class='hs-str'>"func is unimplemented"</span>
<a name="line-115"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-varop'>$</span> <span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-str'>"Unknown attribute type "</span> <span class='hs-varop'><></span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span>
<a name="line-116"></a> <span class='hs-str'>","</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>defaults</span> <span class='hs-varop'>++</span>
<a name="line-117"></a> <span class='hs-str'>","</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>allowed</span>
<a name="line-118"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>makeVal</span> <span class='hs-varid'>c</span> <span class='hs-varid'>x</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrSingle</span> <span class='hs-varop'>$</span> <span class='hs-varid'>c</span> <span class='hs-varop'>$</span>
<a name="line-119"></a> <span class='hs-conid'>Template</span> <span class='hs-layout'>(</span><span class='hs-varid'>defaults</span><span class='hs-varop'>^.</span><span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>allowed</span><span class='hs-varop'>^.</span><span class='hs-varid'>list</span><span class='hs-varop'>.</span><span class='hs-varid'>y</span><span class='hs-layout'>)</span>
<a name="line-120"></a> <span class='hs-varid'>makeList</span> <span class='hs-varid'>c</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AttrList</span> <span class='hs-varop'>$</span> <span class='hs-varid'>c</span> <span class='hs-varop'>$</span> <span class='hs-varid'>defaults</span><span class='hs-varop'>^.</span><span class='hs-varid'>y</span>
</pre></body>
</html>