nist-beacon-0.2.0.0: .stack-work/dist/x86_64-linux/Cabal-1.22.4.0/build/src/Net/Beacon.dump-hi
==================== FINAL INTERFACE ====================
2015-09-11 15:50:28.633885 UTC
interface nistb_A8rjlC94OB4KxToh2tBFSs:Net.Beacon 7102
interface hash: 4fef21b57f786ca0bee18db89407a4a1
ABI hash: 729db744c370b5815926ab79d3122ad6
export-list hash: 42de9e7fd96fdef3073751a141fa2dc2
orphan hash: 693e9af84d3dfcc71e640e005bdc5e2e
flag hash: 37e3f83e239f8497b0bd8280017dc4e5
sig of: Nothing
used TH splices: False
where
exports:
Net.Beacon.getCurrentRecord
Net.Beacon.getLastRecord
Net.Beacon.getNextRecord
Net.Beacon.getPreviousRecord
Net.Beacon.getStartChainRecord
Net.Beacon.Record{Net.Beacon.frequency Net.Beacon.outputValue Net.Beacon.previousOutputValue Net.Beacon.seedValue Net.Beacon.signatureValue Net.Beacon.statusCode Net.Beacon.timeStamp Net.Beacon.version}
Net.Beacon.Timestamp
module dependencies:
package dependencies: HTTP-4000.2.20@HTTP_I3KwBZTyYzDKWfJ8oWET6e
array-0.5.1.0@array_E0sTtauuKsGDLZoT7lTbgZ base-4.8.1.0
binary-0.7.5.0@binar_IvYoLp9H6Xy3zEH13MmZwd
bytestring-0.10.6.0@bytes_6elQVSg5cWdFrvRnfxTUrH
containers-0.5.6.2@conta_LKCPrTJwOTOLk4OU37YmeN
deepseq-1.4.1.1@deeps_LbCWUlehDDeLxurARKDH5o ghc-prim-0.4.0.0
integer-gmp-1.0.0.0 mtl-2.2.1@mtl_KMpng31YRYc5JfMWFZ3FCU
network-2.6.2.1@netwo_F6mK9sCIw3M5SbZMt2lUQE
network-uri-2.6.0.3@netwo_LFMzacKIfjmC6gRt5N3aSz
parsec-3.1.9@parse_8fSmqig53hOL2SEu1k9Tv0
text-1.2.1.3@text_1l1AN4I48k37RaQ6fm6CEh
transformers-0.4.2.0@trans_3eG64VdP2vzGjP6wJiCp5X
xml-1.3.14@xml_A51W7Krf6npGWsiTbJ1zZV
orphans: base-4.8.1.0:GHC.Base base-4.8.1.0:GHC.Float
binary-0.7.5.0@binar_IvYoLp9H6Xy3zEH13MmZwd:Data.Binary.Generic
bytestring-0.10.6.0@bytes_6elQVSg5cWdFrvRnfxTUrH:Data.ByteString.Builder
network-2.6.2.1@netwo_F6mK9sCIw3M5SbZMt2lUQE:Network.Socket
network-2.6.2.1@netwo_F6mK9sCIw3M5SbZMt2lUQE:Network.Socket.Types
text-1.2.1.3@text_1l1AN4I48k37RaQ6fm6CEh:Data.Text
text-1.2.1.3@text_1l1AN4I48k37RaQ6fm6CEh:Data.Text.Lazy
text-1.2.1.3@text_1l1AN4I48k37RaQ6fm6CEh:Data.Text.Show
transformers-0.4.2.0@trans_3eG64VdP2vzGjP6wJiCp5X:Control.Monad.Trans.Error
family instance modules: base-4.8.1.0:Control.Applicative
base-4.8.1.0:Data.Either base-4.8.1.0:Data.Functor.Identity
base-4.8.1.0:Data.Monoid base-4.8.1.0:Data.Type.Equality
base-4.8.1.0:Data.Void base-4.8.1.0:GHC.Exts
base-4.8.1.0:GHC.Generics
containers-0.5.6.2@conta_LKCPrTJwOTOLk4OU37YmeN:Data.IntMap.Base
containers-0.5.6.2@conta_LKCPrTJwOTOLk4OU37YmeN:Data.IntSet.Base
containers-0.5.6.2@conta_LKCPrTJwOTOLk4OU37YmeN:Data.Map.Base
containers-0.5.6.2@conta_LKCPrTJwOTOLk4OU37YmeN:Data.Sequence
containers-0.5.6.2@conta_LKCPrTJwOTOLk4OU37YmeN:Data.Set.Base
network-uri-2.6.0.3@netwo_LFMzacKIfjmC6gRt5N3aSz:Network.URI
text-1.2.1.3@text_1l1AN4I48k37RaQ6fm6CEh:Data.Text
text-1.2.1.3@text_1l1AN4I48k37RaQ6fm6CEh:Data.Text.Lazy
import -/ HTTP-4000.2.20@HTTP_I3KwBZTyYzDKWfJ8oWET6e:Network.HTTP 89548c04cbc4856a6a44def953efbaa8
import -/ base-4.8.1.0:Control.Monad dfea142d91349c4861427789d50d5b80
import -/ base-4.8.1.0:Data.Functor 5c701b0af1708f0192a25dfe14ce6274
import -/ base-4.8.1.0:GHC.Base 1db77db5dae73d8c424c85b09fbadb89
import -/ base-4.8.1.0:GHC.Show b8c65ca3124f92a166c9f05120382442
import -/ base-4.8.1.0:Prelude 518f762991bc287d78f21a73c974da1f
import -/ base-4.8.1.0:Text.Read 30509137a501bd56d136aca29a7a35a6
import -/ bytestring-0.10.6.0@bytes_6elQVSg5cWdFrvRnfxTUrH:Data.ByteString.Lazy.Char8 8bd74e884b1af0b7347d2a16dea4eb83
import -/ bytestring-0.10.6.0@bytes_6elQVSg5cWdFrvRnfxTUrH:Data.ByteString.Lazy.Internal 50ad92eb5836517cb2e48dd14fd9734d
import -/ ghc-prim-0.4.0.0:GHC.Classes e1f4ff80f7b5262008a595d29986fb18
import -/ ghc-prim-0.4.0.0:GHC.Types 6b27fb3fdbd0e3f0925a4496c66513bb
import -/ xml-1.3.14@xml_A51W7Krf6npGWsiTbJ1zZV:Text.XML.Light.Input 508b2cf0cfc28d18e93c9bb65abcf726
import -/ xml-1.3.14@xml_A51W7Krf6npGWsiTbJ1zZV:Text.XML.Light.Proc 41966a20f4755323dab355e1212cedb0
import -/ xml-1.3.14@xml_A51W7Krf6npGWsiTbJ1zZV:Text.XML.Light.Types bfa8bd3f2fe998df28f15e0ef3104d0a
a103c37389faa5697d494afb4d51b72a
$fEqRecord :: GHC.Classes.Eq Net.Beacon.Record
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ Net.Beacon.Record
Net.Beacon.$fEqRecord_$c==
Net.Beacon.$fEqRecord_$c/= -}
a103c37389faa5697d494afb4d51b72a
$fEqRecord_$c/= ::
Net.Beacon.Record -> Net.Beacon.Record -> GHC.Types.Bool
{- Arity: 2,
Strictness: <S(SLLLLLLL),1*U(1*U,1*U(U),1*U(U),1*U,1*U,1*U,1*U,1*U(U))><S(SLLLLLLL),1*U(1*U,1*U(U),1*U(U),1*U,1*U,1*U,1*U,1*U(U))>,
Unfolding: InlineRule (2, True, False)
(\ a2 :: Net.Beacon.Record b :: Net.Beacon.Record ->
case Net.Beacon.$fEqRecord_$c== a2 b of wild {
GHC.Types.False -> GHC.Types.True
GHC.Types.True -> GHC.Types.False }) -}
a103c37389faa5697d494afb4d51b72a
$fEqRecord_$c== ::
Net.Beacon.Record -> Net.Beacon.Record -> GHC.Types.Bool
{- Arity: 2,
Strictness: <S(SLLLLLLL),1*U(1*U,1*U(U),1*U(U),1*U,1*U,1*U,1*U,1*U(U))><S(SLLLLLLL),1*U(1*U,1*U(U),1*U(U),1*U,1*U,1*U,1*U,1*U(U))>,
Inline: INLINE[0],
Unfolding: InlineRule (2, True, False)
(\ w :: Net.Beacon.Record w1 :: Net.Beacon.Record ->
case w of ww { Net.Beacon.Record ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ->
case w1 of ww9 { Net.Beacon.Record ww10 ww11 ww12 ww13 ww14 ww15 ww16 ww17 ->
Net.Beacon.$w$c==
ww1
ww2
ww3
ww4
ww5
ww6
ww7
ww8
ww10
ww11
ww12
ww13
ww14
ww15
ww16
ww17 } }) -}
a103c37389faa5697d494afb4d51b72a
$fShowRecord :: GHC.Show.Show Net.Beacon.Record
DFunId[0]
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ Net.Beacon.Record
Net.Beacon.$fShowRecord_$cshowsPrec
Net.Beacon.$fShowRecord_$cshow
Net.Beacon.$fShowRecord_$cshowList -}
a103c37389faa5697d494afb4d51b72a
$fShowRecord1 :: Net.Beacon.Record -> GHC.Show.ShowS
{- Arity: 2,
Unfolding: (\ w :: Net.Beacon.Record w1 :: GHC.Base.String ->
case w of ww { Net.Beacon.Record ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ->
Net.Beacon.$w$cshowsPrec 0 ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 w1 }) -}
a103c37389faa5697d494afb4d51b72a
$fShowRecord_$cshow :: Net.Beacon.Record -> GHC.Base.String
{- Arity: 1,
Strictness: <S,1*U(1*U,1*U(U),1*U(U),1*U,1*U,1*U,1*U,1*U(U))>,
Unfolding: InlineRule (1, True, False)
(\ x :: Net.Beacon.Record ->
Net.Beacon.$fShowRecord_$cshowsPrec
GHC.Show.shows18
x
(GHC.Types.[] @ GHC.Types.Char)) -}
a103c37389faa5697d494afb4d51b72a
$fShowRecord_$cshowList :: [Net.Beacon.Record] -> GHC.Show.ShowS
{- Arity: 2,
Unfolding: (GHC.Show.showList__
@ Net.Beacon.Record
Net.Beacon.$fShowRecord1) -}
a103c37389faa5697d494afb4d51b72a
$fShowRecord_$cshowsPrec ::
GHC.Types.Int -> Net.Beacon.Record -> GHC.Show.ShowS
{- Arity: 3,
Strictness: <S,1*U(U)><S,1*U(1*U,1*U(U),1*U(U),1*U,1*U,1*U,1*U,1*U(U))><L,U>,
Inline: INLINE[0],
Unfolding: InlineRule (3, True, False)
(\ w :: GHC.Types.Int
w1 :: Net.Beacon.Record
w2 :: GHC.Base.String ->
case w of ww { GHC.Types.I# ww1 ->
case w1 of ww2 { Net.Beacon.Record ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 ->
Net.Beacon.$w$cshowsPrec
ww1
ww3
ww4
ww5
ww6
ww7
ww8
ww9
ww10
w2 } }) -}
b2bea259dd8edce2772a9e8a17a28fe6
$w$c== ::
GHC.Base.String
-> GHC.Types.Int
-> GHC.Types.Int
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> GHC.Types.Int
-> GHC.Base.String
-> GHC.Types.Int
-> GHC.Types.Int
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> GHC.Types.Int
-> GHC.Types.Bool
{- Arity: 16,
Strictness: <S,1*U><L,1*U(U)><L,1*U(U)><L,1*U><L,1*U><L,1*U><L,1*U><L,1*U(U)><S,1*U><L,1*U(U)><L,1*U(U)><L,1*U><L,1*U><L,1*U><L,1*U><L,1*U(U)>,
Inline: [0],
Unfolding: (\ ww :: GHC.Base.String
ww1 :: GHC.Types.Int
ww2 :: GHC.Types.Int
ww3 :: Data.ByteString.Lazy.Internal.ByteString
ww4 :: Data.ByteString.Lazy.Internal.ByteString
ww5 :: Data.ByteString.Lazy.Internal.ByteString
ww6 :: Data.ByteString.Lazy.Internal.ByteString
ww7 :: GHC.Types.Int
ww8 :: GHC.Base.String
ww9 :: GHC.Types.Int
ww10 :: GHC.Types.Int
ww11 :: Data.ByteString.Lazy.Internal.ByteString
ww12 :: Data.ByteString.Lazy.Internal.ByteString
ww13 :: Data.ByteString.Lazy.Internal.ByteString
ww14 :: Data.ByteString.Lazy.Internal.ByteString
ww15 :: GHC.Types.Int ->
case GHC.Base.eqString ww ww8 of wild {
GHC.Types.False -> GHC.Types.False
GHC.Types.True
-> case ww1 of wild1 { GHC.Types.I# x ->
case ww9 of wild2 { GHC.Types.I# y ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.==# x y) of wild3 {
GHC.Types.False -> GHC.Types.False
GHC.Types.True
-> case ww2 of wild4 { GHC.Types.I# x1 ->
case ww10 of wild5 { GHC.Types.I# y1 ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.==# x1 y1) of wild6 {
GHC.Types.False -> GHC.Types.False
GHC.Types.True
-> case Data.ByteString.Lazy.Internal.eq ww3 ww11 of wild7 {
GHC.Types.False -> GHC.Types.False
GHC.Types.True
-> case Data.ByteString.Lazy.Internal.eq ww4 ww12 of wild8 {
GHC.Types.False -> GHC.Types.False
GHC.Types.True
-> case Data.ByteString.Lazy.Internal.eq ww5 ww13 of wild9 {
GHC.Types.False -> GHC.Types.False
GHC.Types.True
-> case Data.ByteString.Lazy.Internal.eq
ww6
ww14 of wild10 {
GHC.Types.False -> GHC.Types.False
GHC.Types.True
-> GHC.Classes.eqInt
ww7
ww15 } } } } } } } } } } }) -}
ee67509bf1456586bc1a886294e8ee38
$w$cshowsPrec ::
GHC.Prim.Int#
-> GHC.Base.String
-> GHC.Types.Int
-> GHC.Types.Int
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> Data.ByteString.Lazy.Internal.ByteString
-> GHC.Types.Int
-> GHC.Base.String
-> GHC.Base.String
{- Arity: 10,
Strictness: <L,U><L,1*U><L,1*U(U)><L,1*U(U)><L,1*U><L,1*U><L,1*U><L,1*U><L,1*U(U)><L,U>,
Inline: [0] -}
a103c37389faa5697d494afb4d51b72a
data Record
= Record {version :: GHC.Base.String,
frequency :: GHC.Types.Int,
timeStamp :: GHC.Types.Int,
seedValue :: Data.ByteString.Lazy.Internal.ByteString,
previousOutputValue :: Data.ByteString.Lazy.Internal.ByteString,
signatureValue :: Data.ByteString.Lazy.Internal.ByteString,
outputValue :: Data.ByteString.Lazy.Internal.ByteString,
statusCode :: GHC.Types.Int}
392899f0a88696e1832bb21ccc72abdb
type Timestamp = GHC.Types.Int
71be3d26925047b09a1469f60d89c00f
frequency :: Net.Beacon.Record -> GHC.Types.Int
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(LSLLLLLL),1*U(A,1*U(U),A,A,A,A,A,A)>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds2 }) -}
09b0edfe2c0949418374cc35a0f39311
getCurrentRecord ::
Net.Beacon.Timestamp
-> GHC.Types.IO (GHC.Base.Maybe Net.Beacon.Record)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: InlineRule (0, True, True)
Net.Beacon.getCurrentRecord1
`cast`
(<Net.Beacon.Timestamp>_R
->_R Sym (GHC.Types.NTCo:IO[0]
<GHC.Base.Maybe Net.Beacon.Record>_R)) -}
29928c76d9f86cc33e252d238ed8c7d1
getCurrentRecord1 ::
Net.Beacon.Timestamp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
GHC.Base.Maybe Net.Beacon.Record #)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: (\ ts :: Net.Beacon.Timestamp
s :: GHC.Prim.State# GHC.Prim.RealWorld[OneShot] ->
case Net.Beacon.getCurrentRecord2
(GHC.CString.unpackAppendCString#
"http://beacon.nist.gov/rest/record/"#
(case ts of ww2 { GHC.Types.I# ww3 ->
case GHC.Show.$wshowSignedInt
0
ww3
(GHC.Types.[] @ GHC.Types.Char) of ww4 { (#,#) ww5 ww6 ->
GHC.Types.: @ GHC.Types.Char ww5 ww6 } }))
s of ds1 { (#,#) ipv ipv1 ->
(# ipv, Net.Beacon.getRecord ipv1 #) }) -}
3496d343de67243cd8d3fec5d1c7d355
getCurrentRecord2 ::
GHC.Base.String
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Data.ByteString.Lazy.Internal.ByteString #)
{- Arity: 2, Strictness: <L,U><L,U>,
Unfolding: (\ url :: GHC.Base.String
s :: GHC.Prim.State# GHC.Prim.RealWorld[OneShot] ->
case Network.HTTP.simpleHTTP1
@ GHC.Base.String
Network.TCP.$fHStream[]
(case (Network.URI.isAbsoluteURI2
@ Network.URI.URI
Network.URI.isURI1
`cast`
(Sym (Text.Parsec.Prim.NTCo:ParsecT[0]
<[GHC.Types.Char]>_R
<()>_R
<Data.Functor.Identity.Identity>_R
<Network.URI.URI>_R))
(GHC.Types.[] @ GHC.Types.Char)
url)
`cast`
(Data.Functor.Identity.NTCo:Identity[0]
<Data.Either.Either
Text.Parsec.Error.ParseError Network.URI.URI>_R) of wild {
Data.Either.Left ds -> Network.HTTP.getRequest1 url
Data.Either.Right u
-> Network.HTTP.Base.Request
@ GHC.Base.String
u
Network.HTTP.Base.GET
Network.HTTP.Base.defaultGETRequest1
(GHC.Types.[] @ GHC.Types.Char) })
s of ds1 { (#,#) ipv ipv1 ->
case ipv1 of wild {
Data.Either.Left err
-> case GHC.Prim.raiseIO#
@ GHC.Exception.SomeException
@ GHC.Base.String
(GHC.IO.Exception.$fExceptionIOException_$ctoException
(GHC.IO.Exception.IOError
(GHC.Base.Nothing @ GHC.IO.Handle.Types.Handle)
GHC.IO.Exception.UserError
(GHC.Types.[] @ GHC.Types.Char)
(Network.Stream.$fShowConnError_$cshowsPrec
GHC.Show.shows18
err
(GHC.Types.[] @ GHC.Types.Char))
(GHC.Base.Nothing @ Foreign.C.Types.CInt)
(GHC.Base.Nothing @ GHC.IO.FilePath)))
ipv
ret_ty (# GHC.Prim.State# GHC.Prim.RealWorld,
Data.ByteString.Lazy.Internal.ByteString #)
of {}
Data.Either.Right r
-> (# ipv,
Data.ByteString.Lazy.Internal.packChars_$spackChunks
32
(Network.HTTP.Base.rspBody @ GHC.Base.String r) #) } }) -}
7365af32387f020d11170cc3e807df91
getLastRecord :: GHC.Types.IO (GHC.Base.Maybe Net.Beacon.Record)
{- Arity: 1, Strictness: <L,U>,
Unfolding: InlineRule (0, True, True)
Net.Beacon.getLastRecord1
`cast`
(Sym (GHC.Types.NTCo:IO[0]
<GHC.Base.Maybe Net.Beacon.Record>_R)) -}
338b25111b11906b5673f3a2fe301b3c
getLastRecord1 ::
GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
GHC.Base.Maybe Net.Beacon.Record #)
{- Arity: 1, Strictness: <L,U>,
Unfolding: (\ s :: GHC.Prim.State# GHC.Prim.RealWorld[OneShot] ->
case Net.Beacon.getCurrentRecord2
Net.Beacon.getLastRecord2
s of ds1 { (#,#) ipv ipv1 ->
(# ipv, Net.Beacon.getRecord ipv1 #) }) -}
a8d8b9ea557da2c8c1a98af4c34478df
getLastRecord2 :: [GHC.Types.Char]
{- Unfolding: (GHC.CString.unpackCString#
"http://beacon.nist.gov/rest/record/last"#) -}
a501c88d143f6c0969d420a59573cd0e
getNextRecord ::
Net.Beacon.Timestamp
-> GHC.Types.IO (GHC.Base.Maybe Net.Beacon.Record)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: InlineRule (0, True, True)
Net.Beacon.getNextRecord1
`cast`
(<Net.Beacon.Timestamp>_R
->_R Sym (GHC.Types.NTCo:IO[0]
<GHC.Base.Maybe Net.Beacon.Record>_R)) -}
03b5de75c0fbf920287910481ddd9e30
getNextRecord1 ::
Net.Beacon.Timestamp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
GHC.Base.Maybe Net.Beacon.Record #)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: (\ ts :: Net.Beacon.Timestamp
s :: GHC.Prim.State# GHC.Prim.RealWorld[OneShot] ->
case Net.Beacon.getCurrentRecord2
(GHC.CString.unpackAppendCString#
"http://beacon.nist.gov/rest/record/next/"#
(case ts of ww2 { GHC.Types.I# ww3 ->
case GHC.Show.$wshowSignedInt
0
ww3
(GHC.Types.[] @ GHC.Types.Char) of ww4 { (#,#) ww5 ww6 ->
GHC.Types.: @ GHC.Types.Char ww5 ww6 } }))
s of ds1 { (#,#) ipv ipv1 ->
(# ipv, Net.Beacon.getRecord ipv1 #) }) -}
ecbb49dde3dfb545cabb1ca73a53206e
getPreviousRecord ::
Net.Beacon.Timestamp
-> GHC.Types.IO (GHC.Base.Maybe Net.Beacon.Record)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: InlineRule (0, True, True)
Net.Beacon.getPreviousRecord1
`cast`
(<Net.Beacon.Timestamp>_R
->_R Sym (GHC.Types.NTCo:IO[0]
<GHC.Base.Maybe Net.Beacon.Record>_R)) -}
4f08827e910d95057d14d4f2aaae29c8
getPreviousRecord1 ::
Net.Beacon.Timestamp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
GHC.Base.Maybe Net.Beacon.Record #)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: (\ ts :: Net.Beacon.Timestamp
s :: GHC.Prim.State# GHC.Prim.RealWorld[OneShot] ->
case Net.Beacon.getCurrentRecord2
(GHC.CString.unpackAppendCString#
"http://beacon.nist.gov/rest/record/previous/"#
(case ts of ww2 { GHC.Types.I# ww3 ->
case GHC.Show.$wshowSignedInt
0
ww3
(GHC.Types.[] @ GHC.Types.Char) of ww4 { (#,#) ww5 ww6 ->
GHC.Types.: @ GHC.Types.Char ww5 ww6 } }))
s of ds1 { (#,#) ipv ipv1 ->
(# ipv, Net.Beacon.getRecord ipv1 #) }) -}
b66f8a42ab5fcc1a8253270cb902be6c
getRecord ::
Data.ByteString.Lazy.Internal.ByteString
-> GHC.Base.Maybe Net.Beacon.Record
{- Arity: 1, Strictness: <L,U> -}
efc90bdacb52c57b268997777174b524
getStartChainRecord ::
Net.Beacon.Timestamp
-> GHC.Types.IO (GHC.Base.Maybe Net.Beacon.Record)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: InlineRule (0, True, True)
Net.Beacon.getStartChainRecord1
`cast`
(<Net.Beacon.Timestamp>_R
->_R Sym (GHC.Types.NTCo:IO[0]
<GHC.Base.Maybe Net.Beacon.Record>_R)) -}
d83c947dfbc9a0079d7c85a3c9d5dd46
getStartChainRecord1 ::
Net.Beacon.Timestamp
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
GHC.Base.Maybe Net.Beacon.Record #)
{- Arity: 2, Strictness: <L,1*U(U)><L,U>,
Unfolding: (\ ts :: Net.Beacon.Timestamp
s :: GHC.Prim.State# GHC.Prim.RealWorld[OneShot] ->
case Net.Beacon.getCurrentRecord2
(GHC.CString.unpackAppendCString#
"http://beacon.nist.gov/rest/record/start-chain/"#
(case ts of ww2 { GHC.Types.I# ww3 ->
case GHC.Show.$wshowSignedInt
0
ww3
(GHC.Types.[] @ GHC.Types.Char) of ww4 { (#,#) ww5 ww6 ->
GHC.Types.: @ GHC.Types.Char ww5 ww6 } }))
s of ds1 { (#,#) ipv ipv1 ->
(# ipv, Net.Beacon.getRecord ipv1 #) }) -}
e3d25a60b81ad53f90a84ebf5d9d4329
outputValue ::
Net.Beacon.Record -> Data.ByteString.Lazy.Internal.ByteString
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(LLLLLLSL),1*U(A,A,A,A,A,A,1*U,A)>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds7 }) -}
91fadb850c1c139385117bc1bfdce137
previousOutputValue ::
Net.Beacon.Record -> Data.ByteString.Lazy.Internal.ByteString
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(LLLLSLLL),1*U(A,A,A,A,1*U,A,A,A)>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds5 }) -}
024d7892d7655bef9c7959ef282ffb56
seedValue ::
Net.Beacon.Record -> Data.ByteString.Lazy.Internal.ByteString
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(LLLSLLLL),1*U(A,A,A,1*U,A,A,A,A)>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds4 }) -}
9108235a7664bcd0bf79ec74b2e60f81
signatureValue ::
Net.Beacon.Record -> Data.ByteString.Lazy.Internal.ByteString
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(LLLLLSLL),1*U(A,A,A,A,A,1*U,A,A)>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds6 }) -}
1cb9b0158c0340bc7705be9efb10ed48
statusCode :: Net.Beacon.Record -> GHC.Types.Int
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(LLLLLLLS),1*U(A,A,A,A,A,A,A,1*U(U))>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds8 }) -}
b1ef16c72a37befe4a21d087ee72ab28
timeStamp :: Net.Beacon.Record -> GHC.Types.Int
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(LLSLLLLL),1*U(A,A,1*U(U),A,A,A,A,A)>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds3 }) -}
8866e83883fd0f8167d2fa8bc275a0c9
version :: Net.Beacon.Record -> GHC.Base.String
RecSel Net.Beacon.Record
{- Arity: 1, HasNoCafRefs,
Strictness: <S(SLLLLLLL),1*U(1*U,A,A,A,A,A,A,A)>,
Unfolding: InlineRule (1, True, False)
(\ ds :: Net.Beacon.Record ->
case ds of wild { Net.Beacon.Record ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ->
ds1 }) -}
instance GHC.Classes.Eq [Net.Beacon.Record] = Net.Beacon.$fEqRecord
instance GHC.Show.Show [Net.Beacon.Record]
= Net.Beacon.$fShowRecord
vectorised variables:
vectorised tycons:
vectorised reused tycons:
parallel variables:
parallel tycons:
trusted: none
require own pkg trusted: False