Skip to content

Commit 680b576

Browse files
kamil-adamkamil-adam
committed
Use better Options
1 parent 273b04f commit 680b576

File tree

123 files changed

+305
-295
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

123 files changed

+305
-295
lines changed

‎docs/developers/CHANGELOG.md

Lines changed: 4 additions & 0 deletions

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assembler.API.Separator.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assembler.API.Separator.hs.html

File renamed without changes.

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assembler.API.SourcePath.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assembler.API.SourcePath.hs.html

File renamed without changes.

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assembler.Extra.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assembler.Extra.hs.html

File renamed without changes.

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assembler.IO.BusinessIO.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assembler.IO.BusinessIO.hs.html

Lines changed: 17 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -27,22 +27,24 @@
2727
<span class="lineno"> 8 </span>import HelVM.HelIO.Control.Logger
2828
<span class="lineno"> 9 </span>import HelVM.HelIO.Control.Safe
2929
<span class="lineno"> 10 </span>
30-
<span class="lineno"> 11 </span>type BIO m = (MonadControl m , BusinessIO m)
30+
<span class="lineno"> 11 </span>import HelVM.HelIO.Extra
3131
<span class="lineno"> 12 </span>
32-
<span class="lineno"> 13 </span>class Monad m =&gt; BusinessIO m where
33-
<span class="lineno"> 14 </span> wReadFile :: FilePath -&gt; m Text
34-
<span class="lineno"> 15 </span>
35-
<span class="lineno"> 16 </span>instance BusinessIO IO where
36-
<span class="lineno"> 17 </span> <span class="decl"><span class="nottickedoff">wReadFile = readFileText</span></span>
37-
<span class="lineno"> 18 </span>
38-
<span class="lineno"> 19 </span>instance BusinessIO (SafeT IO) where
39-
<span class="lineno"> 20 </span> <span class="decl"><span class="nottickedoff">wReadFile = safeT . readFileText</span></span>
40-
<span class="lineno"> 21 </span>
41-
<span class="lineno"> 22 </span>instance BusinessIO (LoggerT IO) where
42-
<span class="lineno"> 23 </span> <span class="decl"><span class="nottickedoff">wReadFile = loggerT . readFileText</span></span>
43-
<span class="lineno"> 24 </span>
44-
<span class="lineno"> 25 </span>instance BusinessIO (ControlT IO) where
45-
<span class="lineno"> 26 </span> <span class="decl"><span class="istickedoff">wReadFile = controlT . readFileText</span></span>
32+
<span class="lineno"> 13 </span>type BIO m = (MonadControl m , BusinessIO m)
33+
<span class="lineno"> 14 </span>
34+
<span class="lineno"> 15 </span>class Monad m =&gt; BusinessIO m where
35+
<span class="lineno"> 16 </span> wReadFile :: FilePath -&gt; m Text
36+
<span class="lineno"> 17 </span>
37+
<span class="lineno"> 18 </span>instance BusinessIO IO where
38+
<span class="lineno"> 19 </span> <span class="decl"><span class="nottickedoff">wReadFile = readFileTextUtf8</span></span>
39+
<span class="lineno"> 20 </span>
40+
<span class="lineno"> 21 </span>instance BusinessIO (SafeT IO) where
41+
<span class="lineno"> 22 </span> <span class="decl"><span class="nottickedoff">wReadFile = safeT . readFileTextUtf8</span></span>
42+
<span class="lineno"> 23 </span>
43+
<span class="lineno"> 24 </span>instance BusinessIO (LoggerT IO) where
44+
<span class="lineno"> 25 </span> <span class="decl"><span class="nottickedoff">wReadFile = loggerT . readFileTextUtf8</span></span>
45+
<span class="lineno"> 26 </span>
46+
<span class="lineno"> 27 </span>instance BusinessIO (ControlT IO) where
47+
<span class="lineno"> 28 </span> <span class="decl"><span class="istickedoff">wReadFile = controlT . readFileTextUtf8</span></span>
4648

4749
</pre>
4850
</body>

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assembler.Lexer.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assembler.Lexer.hs.html

File renamed without changes.

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assembler.Value.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assembler.Value.hs.html

File renamed without changes.

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assemblers.ASQ.API.AssemblyOptions.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assemblers.ASQ.API.AssemblyOptions.hs.html

File renamed without changes.

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assemblers.ASQ.API.QuestionMark.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assemblers.ASQ.API.QuestionMark.hs.html

File renamed without changes.

‎docs/reports/helpa-test/helpa-0.4.3.1-inplace/HelVM.HelPA.Assemblers.ASQ.API.Version.hs.html renamed to ‎docs/reports/helpa-test/helpa-0.4.4.0-inplace/HelVM.HelPA.Assemblers.ASQ.API.Version.hs.html

File renamed without changes.

0 commit comments

Comments
 (0)