Skip to content

Commit

Permalink
Deployed haddocks
Browse files Browse the repository at this point in the history
  • Loading branch information
coot committed Oct 11, 2024
1 parent 95cb9ab commit 54b7044
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions hedgehog-extras/src/Hedgehog.Extras.Test.Base.html
Original file line number Diff line number Diff line change
Expand Up @@ -265,14 +265,14 @@
</span><a href="../file:///usr/local/.ghcup/ghc/9.2.5/share/doc/ghc-9.2.5/html/libraries/base-4.16.4.0/src"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;1&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../file:///usr/local/.ghcup/ghc/9.2.5/share/doc/ghc-9.2.5/html/libraries/base-4.16.4.0/src"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-169"></span><span> </span><span class="hs-comment">-- try to delete the directory 5 times, 100ms apart</span><span>
</span><span id="line-169"></span><span> </span><span class="hs-comment">-- try to delete the directory 20 times, 100ms apart</span><span>
</span><span id="line-170"></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679125225"><span class="annot"><span class="annottext">retryPolicy :: RetryPolicyM IO
</span><a href="#local-6989586621679125225"><span class="hs-identifier hs-var hs-var">retryPolicy</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">forall (m :: * -&gt; *). Monad m =&gt; Int -&gt; RetryPolicyM m
</span><span class="hs-identifier hs-var">R.constantDelay</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">100000</span></span><span> </span><span class="annot"><span class="annottext">forall a. Semigroup a =&gt; a -&gt; a -&gt; a
</span><a href="../file:///usr/local/.ghcup/ghc/9.2.5/share/doc/ghc-9.2.5/html/libraries/base-4.16.4.0/src"><span class="hs-operator hs-var">&lt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; RetryPolicy
</span><span class="hs-identifier hs-var">R.limitRetries</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span>
</span><span class="hs-number">20</span></span><span>
</span><span id="line-171"></span><span> </span><span class="hs-comment">-- retry only on IOExceptions</span><span>
</span><span id="line-172"></span><span> </span><span id="local-6989586621679125218"><span class="annot"><span class="annottext">ioExH :: p -&gt; Handler m Bool
</span><a href="#local-6989586621679125218"><span class="hs-identifier hs-var hs-var">ioExH</span></a></span></span><span> </span><span class="annot"><span class="annottext">p
Expand Down

0 comments on commit 54b7044

Please sign in to comment.