-
Notifications
You must be signed in to change notification settings - Fork 40
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
c898b44
commit 8c3363e
Showing
229 changed files
with
40,493 additions
and
239 deletions.
There are no files selected for viewing
52 changes: 52 additions & 0 deletions
52
coverage/cardano-addresses-3.11.0-J4Or3kPXLwz4pepV3TgJE9/Cardano.Address.Compat.hs.html
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,52 @@ | ||
<html> | ||
<head> | ||
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> | ||
<style type="text/css"> | ||
span.lineno { color: white; background: #aaaaaa; border-right: solid white 12px } | ||
span.nottickedoff { background: yellow} | ||
span.istickedoff { background: white } | ||
span.tickonlyfalse { margin: -1px; border: 1px solid #f20913; background: #f20913 } | ||
span.tickonlytrue { margin: -1px; border: 1px solid #60de51; background: #60de51 } | ||
span.funcount { font-size: small; color: orange; z-index: 2; position: absolute; right: 20 } | ||
span.decl { font-weight: bold } | ||
span.spaces { background: white } | ||
</style> | ||
</head> | ||
<body> | ||
<pre> | ||
<span class="decl"><span class="nottickedoff">never executed</span> <span class="tickonlytrue">always true</span> <span class="tickonlyfalse">always false</span></span> | ||
</pre> | ||
<pre> | ||
<span class="lineno"> 1 </span>{-# LANGUAGE CPP #-} | ||
<span class="lineno"> 2 </span> | ||
<span class="lineno"> 3 </span>-- | | ||
<span class="lineno"> 4 </span>-- Copyright: © 2018-2021 IOHK | ||
<span class="lineno"> 5 </span>-- License: Apache-2.0 | ||
<span class="lineno"> 6 </span>-- | ||
<span class="lineno"> 7 </span>-- A compatibility function for the GHCJS build. | ||
<span class="lineno"> 8 </span> | ||
<span class="lineno"> 9 </span>module Cardano.Address.Compat | ||
<span class="lineno"> 10 </span> ( ghcjsBuildSupport | ||
<span class="lineno"> 11 </span> ) where | ||
<span class="lineno"> 12 </span> | ||
<span class="lineno"> 13 </span>import Prelude | ||
<span class="lineno"> 14 </span> | ||
<span class="lineno"> 15 </span>#ifdef ghcjs_HOST_OS | ||
<span class="lineno"> 16 </span>import Cardano.Address.Jsbits | ||
<span class="lineno"> 17 </span> ( addJsbitsDependency ) | ||
<span class="lineno"> 18 </span>#endif | ||
<span class="lineno"> 19 </span> | ||
<span class="lineno"> 20 </span>-- | This function must be used somewhere, so that external Javascript files are | ||
<span class="lineno"> 21 </span>-- correctly linked in the GHCJS build. | ||
<span class="lineno"> 22 </span>-- | ||
<span class="lineno"> 23 </span>-- For non-GHCJS, it has no effect. | ||
<span class="lineno"> 24 </span>ghcjsBuildSupport :: IO () | ||
<span class="lineno"> 25 </span>#ifdef ghcjs_HOST_OS | ||
<span class="lineno"> 26 </span>ghcjsBuildSupport = addJsbitsDependency | ||
<span class="lineno"> 27 </span>#else | ||
<span class="lineno"> 28 </span><span class="decl"><span class="istickedoff">ghcjsBuildSupport = pure <span class="nottickedoff">()</span></span></span> | ||
<span class="lineno"> 29 </span>#endif | ||
|
||
</pre> | ||
</body> | ||
</html> |
496 changes: 496 additions & 0 deletions
496
coverage/cardano-addresses-3.11.0-J4Or3kPXLwz4pepV3TgJE9/Cardano.Address.Derivation.hs.html
Large diffs are not rendered by default.
Oops, something went wrong.
86 changes: 86 additions & 0 deletions
86
coverage/cardano-addresses-3.11.0-J4Or3kPXLwz4pepV3TgJE9/Cardano.Address.Internal.hs.html
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,86 @@ | ||
<html> | ||
<head> | ||
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> | ||
<style type="text/css"> | ||
span.lineno { color: white; background: #aaaaaa; border-right: solid white 12px } | ||
span.nottickedoff { background: yellow} | ||
span.istickedoff { background: white } | ||
span.tickonlyfalse { margin: -1px; border: 1px solid #f20913; background: #f20913 } | ||
span.tickonlytrue { margin: -1px; border: 1px solid #60de51; background: #60de51 } | ||
span.funcount { font-size: small; color: orange; z-index: 2; position: absolute; right: 20 } | ||
span.decl { font-weight: bold } | ||
span.spaces { background: white } | ||
</style> | ||
</head> | ||
<body> | ||
<pre> | ||
<span class="decl"><span class="nottickedoff">never executed</span> <span class="tickonlytrue">always true</span> <span class="tickonlyfalse">always false</span></span> | ||
</pre> | ||
<pre> | ||
<span class="lineno"> 1 </span>{-# LANGUAGE FlexibleContexts #-} | ||
<span class="lineno"> 2 </span>{-# LANGUAGE OverloadedStrings #-} | ||
<span class="lineno"> 3 </span>{-# LANGUAGE UndecidableInstances #-} | ||
<span class="lineno"> 4 </span> | ||
<span class="lineno"> 5 </span>{-# OPTIONS_GHC -fno-warn-orphans #-} | ||
<span class="lineno"> 6 </span> | ||
<span class="lineno"> 7 </span>-- | | ||
<span class="lineno"> 8 </span>-- Copyright: © 2018-2021 IOHK | ||
<span class="lineno"> 9 </span>-- License: Apache-2.0 | ||
<span class="lineno"> 10 </span>-- | ||
<span class="lineno"> 11 </span>-- Utility functions for internal use of the library. | ||
<span class="lineno"> 12 </span> | ||
<span class="lineno"> 13 </span>module Cardano.Address.Internal | ||
<span class="lineno"> 14 </span> ( orElse | ||
<span class="lineno"> 15 </span> , WithErrorMessage (..) | ||
<span class="lineno"> 16 </span> , DeserialiseFailure (..) | ||
<span class="lineno"> 17 </span> ) where | ||
<span class="lineno"> 18 </span> | ||
<span class="lineno"> 19 </span>import Prelude | ||
<span class="lineno"> 20 </span> | ||
<span class="lineno"> 21 </span>import Codec.CBOR.Read | ||
<span class="lineno"> 22 </span> ( DeserialiseFailure (..) ) | ||
<span class="lineno"> 23 </span>import Control.Exception | ||
<span class="lineno"> 24 </span> ( Exception (..) ) | ||
<span class="lineno"> 25 </span>import Data.Aeson | ||
<span class="lineno"> 26 </span> ( GToJSON | ||
<span class="lineno"> 27 </span> , Options (..) | ||
<span class="lineno"> 28 </span> , SumEncoding (..) | ||
<span class="lineno"> 29 </span> , ToJSON (..) | ||
<span class="lineno"> 30 </span> , Value (..) | ||
<span class="lineno"> 31 </span> , Zero | ||
<span class="lineno"> 32 </span> , defaultOptions | ||
<span class="lineno"> 33 </span> , genericToJSON | ||
<span class="lineno"> 34 </span> , object | ||
<span class="lineno"> 35 </span> , toJSON | ||
<span class="lineno"> 36 </span> , (.=) | ||
<span class="lineno"> 37 </span> ) | ||
<span class="lineno"> 38 </span>import GHC.Generics | ||
<span class="lineno"> 39 </span> ( Generic, Rep ) | ||
<span class="lineno"> 40 </span> | ||
<span class="lineno"> 41 </span>orElse :: Either e a -> Either e a -> Either e a | ||
<span class="lineno"> 42 </span><span class="decl"><span class="istickedoff">orElse (Right a) _ = Right a</span> | ||
<span class="lineno"> 43 </span><span class="spaces"></span><span class="istickedoff">orElse (Left _) ea = ea</span></span> | ||
<span class="lineno"> 44 </span> | ||
<span class="lineno"> 45 </span>errToJSON :: (Exception e, Generic e, GToJSON Zero (Rep e)) => e -> Value | ||
<span class="lineno"> 46 </span><span class="decl"><span class="nottickedoff">errToJSON err = object</span> | ||
<span class="lineno"> 47 </span><span class="spaces"> </span><span class="nottickedoff">[ "error" .= genericToJSON opts err</span> | ||
<span class="lineno"> 48 </span><span class="spaces"> </span><span class="nottickedoff">, "message" .= toJSON (displayException err)</span> | ||
<span class="lineno"> 49 </span><span class="spaces"> </span><span class="nottickedoff">]</span> | ||
<span class="lineno"> 50 </span><span class="spaces"> </span><span class="nottickedoff">where</span> | ||
<span class="lineno"> 51 </span><span class="spaces"> </span><span class="nottickedoff">opts = defaultOptions { sumEncoding = errorCodes }</span> | ||
<span class="lineno"> 52 </span><span class="spaces"> </span><span class="nottickedoff">errorCodes = TaggedObject "code" "details"</span></span> | ||
<span class="lineno"> 53 </span> | ||
<span class="lineno"> 54 </span>newtype WithErrorMessage e = WithErrorMessage { <span class="nottickedoff"><span class="decl"><span class="nottickedoff">withErrorMessage</span></span></span> :: e } | ||
<span class="lineno"> 55 </span> | ||
<span class="lineno"> 56 </span>instance (Exception e, Generic e, GToJSON Zero (Rep e)) => ToJSON (WithErrorMessage e) where | ||
<span class="lineno"> 57 </span> <span class="decl"><span class="nottickedoff">toJSON = errToJSON . withErrorMessage</span></span> | ||
<span class="lineno"> 58 </span> | ||
<span class="lineno"> 59 </span>instance ToJSON DeserialiseFailure where | ||
<span class="lineno"> 60 </span> <span class="decl"><span class="nottickedoff">toJSON (DeserialiseFailure off msg) = object</span> | ||
<span class="lineno"> 61 </span><span class="spaces"> </span><span class="nottickedoff">[ "code" .= String "Codec.CBOR.DeserialiseFailure"</span> | ||
<span class="lineno"> 62 </span><span class="spaces"> </span><span class="nottickedoff">, "details" .= object [ "byteOffset" .= off, "message" .= msg ]</span> | ||
<span class="lineno"> 63 </span><span class="spaces"> </span><span class="nottickedoff">]</span></span> | ||
|
||
</pre> | ||
</body> | ||
</html> |
Oops, something went wrong.