<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="Reins" rel="Chapter" href="Reins.html"><title>Reins.DugExtractor</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> <span class="keywordsign">'</span>a wrap = <span class="keyword">private</span> { data : <span class="keywordsign">'</span>a; id : <span class="constructor">Dug</span>.<span class="constructor">Id</span>.t; }<br> <span class="keyword">val</span> mutate :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="keywordsign">'</span>c) <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.t <span class="keywordsign">-></span><br> (<span class="constructor">Dug</span>.<span class="constructor">Id</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>d <span class="keywordsign">-></span> <span class="keywordsign">'</span>d) <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap<br> <span class="keyword">val</span> mutate2 :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="keywordsign">'</span>c) <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.t <span class="keywordsign">-></span><br> (<span class="constructor">Dug</span>.<span class="constructor">Id</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>d <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="keywordsign">-></span> <span class="keywordsign">'</span>d) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap<br> <span class="keyword">val</span> observe :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="keywordsign">'</span>c) <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.t <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>c <span class="keywordsign">-></span> (<span class="keywordsign">'</span>d <span class="keywordsign">-></span> <span class="keywordsign">'</span>e) <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap <span class="keywordsign">-></span> <span class="keywordsign">'</span>e<br> <span class="keyword">val</span> observe2 :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="keywordsign">'</span>c) <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.t <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>c <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>d <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="keywordsign">-></span> <span class="keywordsign">'</span>e) <span class="keywordsign">-></span><br> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap <span class="keywordsign">-></span> <span class="keywordsign">'</span>e<br> <span class="keyword">val</span> generate :<br> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b, <span class="keywordsign">'</span>c) <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.t <span class="keywordsign">-></span><br> (<span class="constructor">Dug</span>.<span class="constructor">Id</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="keywordsign">-></span> <span class="keywordsign">'</span>d <span class="constructor">Reins</span>.<span class="constructor">DugExtractor</span>.wrap<br> <span class="keyword">end</span></code></body></html>