Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
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
- 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
- data ErrorResult
- 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 #
Instances
Show StoreJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event showsPrec :: Int -> StoreJsons -> ShowS # show :: StoreJsons -> String # showList :: [StoreJsons] -> ShowS # | |
Request StoreJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event data Occurred StoreJsons # | |
Selectable StoreJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event select :: StoreJsons -> StoreJsons -> StoreJsons # | |
Numbered StoreJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event type Number StoreJsons = (r :: Nat) | |
data Occurred StoreJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
type Number StoreJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event type Number StoreJsons = 11239785263970840420 |
pattern OccStoreJsons :: [Object] -> Occurred StoreJsons Source #
Instances
Show LoadJsons Source # | |
Eq LoadJsons Source # | |
Ord LoadJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Request LoadJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Numbered LoadJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
data Occurred LoadJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
type Number LoadJsons Source # | |
Defined in Control.Moffy.Samples.Followbox.Event type Number LoadJsons = 8574517730946649651 |
clearJsons :: React s (Singleton StoreJsons) () Source #
storeJsons :: [Object] -> React s (Singleton StoreJsons) () Source #
Request Data
Http Get
Instances
Show HttpGet Source # | |
Eq HttpGet Source # | |
Ord HttpGet Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Request HttpGet Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Numbered HttpGet Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
data Occurred HttpGet Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
type Number HttpGet Source # | |
Defined in Control.Moffy.Samples.Followbox.Event type Number HttpGet = 1002579442181997976 |
pattern OccHttpGet :: Uri -> [Header] -> ByteString -> Occurred HttpGet Source #
Get Time Zone
data GetTimeZone Source #
Instances
pattern OccGetTimeZone :: TimeZone -> Occurred GetTimeZone Source #
getTimeZone :: React s (Singleton GetTimeZone) TimeZone Source #
Browse
Instances
Show Browse Source # | |
Eq Browse Source # | |
Ord Browse Source # | |
Request Browse Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Numbered Browse Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Show (Occurred Browse) Source # | |
data Occurred Browse Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
type Number Browse Source # | |
Defined in Control.Moffy.Samples.Followbox.Event type Number Browse = 11295198872124091288 |
Sleep
data BeginSleep Source #
Instances
pattern OccBeginSleep :: UTCTime -> Occurred BeginSleep Source #
Instances
Show EndSleep Source # | |
Eq EndSleep Source # | |
Ord EndSleep Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Request EndSleep Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Numbered EndSleep Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
Show (Occurred EndSleep) Source # | |
data Occurred EndSleep Source # | |
Defined in Control.Moffy.Samples.Followbox.Event | |
type Number EndSleep Source # | |
Defined in Control.Moffy.Samples.Followbox.Event type Number EndSleep = 14910820618166509129 |
pattern OccEndSleep :: Occurred EndSleep Source #
beginSleep :: UTCTime -> React s (Singleton BeginSleep) () Source #
Raise Error
data RaiseError Source #
Instances
pattern OccRaiseError :: Error -> ErrorResult -> Occurred RaiseError Source #
NoRateLimitRemaining | |
NoRateLimitReset | |
NotJson | |
EmptyJson | |
NoLoginName | |
NoAvatarAddress | |
NoAvatar | |
NoHtmlUrl | |
Trace | |
CatchError |
Instances
data ErrorResult Source #
Instances
Show ErrorResult Source # | |
Defined in Control.Moffy.Samples.Followbox.Event showsPrec :: Int -> ErrorResult -> ShowS # show :: ErrorResult -> String # showList :: [ErrorResult] -> ShowS # |
raiseError :: Error -> ErrorMessage -> React s (Singleton RaiseError) () Source #
checkTerminate :: React s (Singleton RaiseError) () Source #