Safe Haskell	Safe-Inferred
Language	Haskell2010

Control.Moffy.Samples.Followbox.Event

Contents

Followbox Event
Store and Load Jsons
Request Data
- Http Get
- Get Time Zone
Browse
Sleep
Raise Error

Synopsis

type SigF s = Sig s FollowboxEv
type ReactF s r = React s FollowboxEv r
type FollowboxEv = SetArea :- (GetArea :- (GetThreadId :- (LockEv :+: (RandomEv :+: (DeleteEvent :- (MouseEv :+: (StoreJsons :- (LoadJsons :- (HttpGet :- (CalcTextExtents :- (GetTimeZone :- (Browse :- (BeginSleep :- (EndSleep :- (RaiseError :- 'Nil)))))))))))))))
newtype StoreJsons = StoreJsonsReq [Object]
pattern OccStoreJsons :: [Object] -> Occurred StoreJsons
data LoadJsons
pattern OccLoadJsons :: [Object] -> Occurred LoadJsons
clearJsons :: React s (Singleton StoreJsons) ()
storeJsons :: [Object] -> React s (Singleton StoreJsons) ()
loadJsons :: React s (Singleton LoadJsons) [Object]
newtype HttpGet = HttpGetReq Uri
pattern OccHttpGet :: Uri -> [Header] -> ByteString -> Occurred HttpGet
httpGet :: Uri -> React s (Singleton HttpGet) ([Header], ByteString)
data GetTimeZone
pattern OccGetTimeZone :: TimeZone -> Occurred GetTimeZone
getTimeZone :: React s (Singleton GetTimeZone) TimeZone
newtype Browse = Browse Uri
pattern OccBrowse :: Occurred Browse
browse :: Uri -> React s (Singleton Browse) ()
data BeginSleep
- = BeginSleep UTCTime
- | CheckBeginSleep
pattern OccBeginSleep :: UTCTime -> Occurred BeginSleep
data EndSleep
pattern OccEndSleep :: Occurred EndSleep
beginSleep :: UTCTime -> React s (Singleton BeginSleep) ()
checkBeginSleep :: React s (Singleton BeginSleep) UTCTime
endSleep :: React s (Singleton EndSleep) ()
data RaiseError = RaiseError Error ErrorMessage
pattern OccRaiseError :: Error -> ErrorResult -> Occurred RaiseError
data Error
- = NoRateLimitRemaining
- | NoRateLimitReset
- | NotJson
- | EmptyJson
- | NoLoginName
- | NoAvatarAddress
- | NoAvatar
- | NoHtmlUrl
- | Trace
- | CatchError
data ErrorResult
- = Continue
- | Terminate
raiseError :: Error -> ErrorMessage -> React s (Singleton RaiseError) ()
checkTerminate :: React s (Singleton RaiseError) ()

Followbox Event

type SigF s = Sig s FollowboxEv Source #

type ReactF s r = React s FollowboxEv r Source #

type FollowboxEv = SetArea :- (GetArea :- (GetThreadId :- (LockEv :+: (RandomEv :+: (DeleteEvent :- (MouseEv :+: (StoreJsons :- (LoadJsons :- (HttpGet :- (CalcTextExtents :- (GetTimeZone :- (Browse :- (BeginSleep :- (EndSleep :- (RaiseError :- 'Nil))))))))))))))) Source #

Store and Load Jsons

newtype StoreJsons Source #

Constructors

StoreJsonsReq [Object]

Instances

Instances details

Show StoreJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> StoreJsons -> ShowS # show :: StoreJsons -> String # showList :: [StoreJsons] -> ShowS #
Request StoreJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred StoreJsons #
Selectable StoreJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods select :: StoreJsons -> StoreJsons -> StoreJsons #
Numbered StoreJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number StoreJsons = (r :: Nat)
data Occurred StoreJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred StoreJsons = OccStoreJsons [Object]
type Number StoreJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number StoreJsons = 9988814994479604199

pattern OccStoreJsons :: [Object] -> Occurred StoreJsons Source #

data LoadJsons Source #

Instances

Instances details

Show LoadJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> LoadJsons -> ShowS # show :: LoadJsons -> String # showList :: [LoadJsons] -> ShowS #
Eq LoadJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: LoadJsons -> LoadJsons -> Bool # (/=) :: LoadJsons -> LoadJsons -> Bool #
Ord LoadJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: LoadJsons -> LoadJsons -> Ordering # (<) :: LoadJsons -> LoadJsons -> Bool # (<=) :: LoadJsons -> LoadJsons -> Bool # (>) :: LoadJsons -> LoadJsons -> Bool # (>=) :: LoadJsons -> LoadJsons -> Bool # max :: LoadJsons -> LoadJsons -> LoadJsons # min :: LoadJsons -> LoadJsons -> LoadJsons #
Request LoadJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred LoadJsons #
Numbered LoadJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number LoadJsons = (r :: Nat)
data Occurred LoadJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred LoadJsons = OccLoadJsons [Object]
type Number LoadJsons Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number LoadJsons = 680772280130169620

pattern OccLoadJsons :: [Object] -> Occurred LoadJsons Source #

clearJsons :: React s (Singleton StoreJsons) () Source #

storeJsons :: [Object] -> React s (Singleton StoreJsons) () Source #

loadJsons :: React s (Singleton LoadJsons) [Object] Source #

Request Data

Http Get

newtype HttpGet Source #

Constructors

HttpGetReq Uri

Instances

Instances details

Show HttpGet Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> HttpGet -> ShowS # show :: HttpGet -> String # showList :: [HttpGet] -> ShowS #
Eq HttpGet Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: HttpGet -> HttpGet -> Bool # (/=) :: HttpGet -> HttpGet -> Bool #
Ord HttpGet Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: HttpGet -> HttpGet -> Ordering # (<) :: HttpGet -> HttpGet -> Bool # (<=) :: HttpGet -> HttpGet -> Bool # (>) :: HttpGet -> HttpGet -> Bool # (>=) :: HttpGet -> HttpGet -> Bool # max :: HttpGet -> HttpGet -> HttpGet # min :: HttpGet -> HttpGet -> HttpGet #
Request HttpGet Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred HttpGet #
Numbered HttpGet Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number HttpGet = (r :: Nat)
data Occurred HttpGet Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred HttpGet = OccHttpGet Uri [Header] ByteString
type Number HttpGet Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number HttpGet = 851398241048022017

pattern OccHttpGet :: Uri -> [Header] -> ByteString -> Occurred HttpGet Source #

httpGet :: Uri -> React s (Singleton HttpGet) ([Header], ByteString) Source #

Get Time Zone

data GetTimeZone Source #

Instances

Instances details

Show GetTimeZone Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> GetTimeZone -> ShowS # show :: GetTimeZone -> String # showList :: [GetTimeZone] -> ShowS #
Eq GetTimeZone Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: GetTimeZone -> GetTimeZone -> Bool # (/=) :: GetTimeZone -> GetTimeZone -> Bool #
Ord GetTimeZone Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: GetTimeZone -> GetTimeZone -> Ordering # (<) :: GetTimeZone -> GetTimeZone -> Bool # (<=) :: GetTimeZone -> GetTimeZone -> Bool # (>) :: GetTimeZone -> GetTimeZone -> Bool # (>=) :: GetTimeZone -> GetTimeZone -> Bool # max :: GetTimeZone -> GetTimeZone -> GetTimeZone # min :: GetTimeZone -> GetTimeZone -> GetTimeZone #
Request GetTimeZone Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred GetTimeZone #
Numbered GetTimeZone Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number GetTimeZone = (r :: Nat)
Show (Occurred GetTimeZone) Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> Occurred GetTimeZone -> ShowS # show :: Occurred GetTimeZone -> String # showList :: [Occurred GetTimeZone] -> ShowS #
data Occurred GetTimeZone Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred GetTimeZone = OccGetTimeZone TimeZone
type Number GetTimeZone Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number GetTimeZone = 9368651120468576201

pattern OccGetTimeZone :: TimeZone -> Occurred GetTimeZone Source #

getTimeZone :: React s (Singleton GetTimeZone) TimeZone Source #

Browse

newtype Browse Source #

Constructors

Browse Uri

Instances

Instances details

Show Browse Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> Browse -> ShowS # show :: Browse -> String # showList :: [Browse] -> ShowS #
Eq Browse Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: Browse -> Browse -> Bool # (/=) :: Browse -> Browse -> Bool #
Ord Browse Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: Browse -> Browse -> Ordering # (<) :: Browse -> Browse -> Bool # (<=) :: Browse -> Browse -> Bool # (>) :: Browse -> Browse -> Bool # (>=) :: Browse -> Browse -> Bool # max :: Browse -> Browse -> Browse # min :: Browse -> Browse -> Browse #
Request Browse Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred Browse #
Numbered Browse Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number Browse = (r :: Nat)
Show (Occurred Browse) Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> Occurred Browse -> ShowS # show :: Occurred Browse -> String # showList :: [Occurred Browse] -> ShowS #
data Occurred Browse Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred Browse = OccBrowse
type Number Browse Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number Browse = 11263839710819679580

pattern OccBrowse :: Occurred Browse Source #

browse :: Uri -> React s (Singleton Browse) () Source #

Sleep

data BeginSleep Source #

Constructors

BeginSleep UTCTime
CheckBeginSleep

Instances

Instances details

Show BeginSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> BeginSleep -> ShowS # show :: BeginSleep -> String # showList :: [BeginSleep] -> ShowS #
Eq BeginSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: BeginSleep -> BeginSleep -> Bool # (/=) :: BeginSleep -> BeginSleep -> Bool #
Ord BeginSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: BeginSleep -> BeginSleep -> Ordering # (<) :: BeginSleep -> BeginSleep -> Bool # (<=) :: BeginSleep -> BeginSleep -> Bool # (>) :: BeginSleep -> BeginSleep -> Bool # (>=) :: BeginSleep -> BeginSleep -> Bool # max :: BeginSleep -> BeginSleep -> BeginSleep # min :: BeginSleep -> BeginSleep -> BeginSleep #
Request BeginSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred BeginSleep #
Numbered BeginSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number BeginSleep = (r :: Nat)
Show (Occurred BeginSleep) Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> Occurred BeginSleep -> ShowS # show :: Occurred BeginSleep -> String # showList :: [Occurred BeginSleep] -> ShowS #
data Occurred BeginSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred BeginSleep = OccBeginSleep UTCTime
type Number BeginSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number BeginSleep = 8216053991432259048

pattern OccBeginSleep :: UTCTime -> Occurred BeginSleep Source #

data EndSleep Source #

Instances

Instances details

Show EndSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> EndSleep -> ShowS # show :: EndSleep -> String # showList :: [EndSleep] -> ShowS #
Eq EndSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: EndSleep -> EndSleep -> Bool # (/=) :: EndSleep -> EndSleep -> Bool #
Ord EndSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: EndSleep -> EndSleep -> Ordering # (<) :: EndSleep -> EndSleep -> Bool # (<=) :: EndSleep -> EndSleep -> Bool # (>) :: EndSleep -> EndSleep -> Bool # (>=) :: EndSleep -> EndSleep -> Bool # max :: EndSleep -> EndSleep -> EndSleep # min :: EndSleep -> EndSleep -> EndSleep #
Request EndSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred EndSleep #
Numbered EndSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number EndSleep = (r :: Nat)
Show (Occurred EndSleep) Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> Occurred EndSleep -> ShowS # show :: Occurred EndSleep -> String # showList :: [Occurred EndSleep] -> ShowS #
data Occurred EndSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred EndSleep = OccEndSleep
type Number EndSleep Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number EndSleep = 1440645822818828682

pattern OccEndSleep :: Occurred EndSleep Source #

beginSleep :: UTCTime -> React s (Singleton BeginSleep) () Source #

checkBeginSleep :: React s (Singleton BeginSleep) UTCTime Source #

endSleep :: React s (Singleton EndSleep) () Source #

Raise Error

data RaiseError Source #

Constructors

RaiseError Error ErrorMessage

Instances

Instances details

Show RaiseError Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> RaiseError -> ShowS # show :: RaiseError -> String # showList :: [RaiseError] -> ShowS #
Eq RaiseError Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: RaiseError -> RaiseError -> Bool # (/=) :: RaiseError -> RaiseError -> Bool #
Ord RaiseError Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: RaiseError -> RaiseError -> Ordering # (<) :: RaiseError -> RaiseError -> Bool # (<=) :: RaiseError -> RaiseError -> Bool # (>) :: RaiseError -> RaiseError -> Bool # (>=) :: RaiseError -> RaiseError -> Bool # max :: RaiseError -> RaiseError -> RaiseError # min :: RaiseError -> RaiseError -> RaiseError #
Request RaiseError Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types data Occurred RaiseError #
Numbered RaiseError Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Associated Types type Number RaiseError = (r :: Nat)
data Occurred RaiseError Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event data Occurred RaiseError = OccRaiseError Error ErrorResult
type Number RaiseError Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event type Number RaiseError = 5536218282121937606

pattern OccRaiseError :: Error -> ErrorResult -> Occurred RaiseError Source #

data Error Source #

Constructors

NoRateLimitRemaining
NoRateLimitReset
NotJson
EmptyJson
NoLoginName
NoAvatarAddress
NoAvatar
NoHtmlUrl
Trace
CatchError

Instances

Instances details

Show Error Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> Error -> ShowS # show :: Error -> String # showList :: [Error] -> ShowS #
Eq Error Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods (==) :: Error -> Error -> Bool # (/=) :: Error -> Error -> Bool #
Ord Error Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods compare :: Error -> Error -> Ordering # (<) :: Error -> Error -> Bool # (<=) :: Error -> Error -> Bool # (>) :: Error -> Error -> Bool # (>=) :: Error -> Error -> Bool # max :: Error -> Error -> Error # min :: Error -> Error -> Error #

data ErrorResult Source #

Constructors

Continue
Terminate

Instances

Instances details

Show ErrorResult Source #
Instance details Defined in Control.Moffy.Samples.Followbox.Event Methods showsPrec :: Int -> ErrorResult -> ShowS # show :: ErrorResult -> String # showList :: [ErrorResult] -> ShowS #

raiseError :: Error -> ErrorMessage -> React s (Singleton RaiseError) () Source #

checkTerminate :: React s (Singleton RaiseError) () Source #