Lifx.Lan.Internal

Documentation

newtype Device

A LIFX device, such as a bulb.

Constructors

Device

Fields

• unwrap :: HostAddress

Instances

Show Device

Defined in Lifx.Lan.Internal

Methods

showsPrec :: Int -> Device -> ShowS

show :: Device -> String

showList :: [Device] -> ShowS

Eq Device

Defined in Lifx.Lan.Internal

Methods

(==) :: Device -> Device -> Bool

(/=) :: Device -> Device -> Bool

Ord Device

Defined in Lifx.Lan.Internal

Methods

compare :: Device -> Device -> Ordering

(<) :: Device -> Device -> Bool

(<=) :: Device -> Device -> Bool

(>) :: Device -> Device -> Bool

(>=) :: Device -> Device -> Bool

max :: Device -> Device -> Device

min :: Device -> Device -> Device

data HSBK

A colour. See https://lan.developer.lifx.com/docs/representing-color-with-hsbk.

Constructors

HSBK

Fields

• hue :: Word16
• saturation :: Word16
• brightness :: Word16
• kelvin :: Word16

  takes values in the range 1500 to 9000

Instances

Generic HSBK

Defined in Lifx.Lan.Internal

Associated Types

type Rep HSBK :: Type -> Type

Methods

from :: HSBK -> Rep HSBK x

to :: Rep HSBK x -> HSBK

Show HSBK

Defined in Lifx.Lan.Internal

Methods

showsPrec :: Int -> HSBK -> ShowS

show :: HSBK -> String

showList :: [HSBK] -> ShowS

Eq HSBK

Defined in Lifx.Lan.Internal

Methods

(==) :: HSBK -> HSBK -> Bool

(/=) :: HSBK -> HSBK -> Bool

Ord HSBK

Defined in Lifx.Lan.Internal

Methods

compare :: HSBK -> HSBK -> Ordering

(<) :: HSBK -> HSBK -> Bool

(<=) :: HSBK -> HSBK -> Bool

(>) :: HSBK -> HSBK -> Bool

(>=) :: HSBK -> HSBK -> Bool

max :: HSBK -> HSBK -> HSBK

min :: HSBK -> HSBK -> HSBK

type Rep HSBK

Defined in Lifx.Lan.Internal

type Rep HSBK = D1 ('MetaData "HSBK" "Lifx.Lan.Internal" "lifx-lan-0.8.3-30j063vj3wPEAgIf7LzxCG" 'False) (C1 ('MetaCons "HSBK" 'PrefixI 'True) ((S1 ('MetaSel ('Just "hue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16) :*: S1 ('MetaSel ('Just "saturation") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16)) :*: (S1 ('MetaSel ('Just "brightness") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16) :*: S1 ('MetaSel ('Just "kelvin") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16))))

data LifxError

Constructors

DecodeFailure ByteString ByteOffset String

RecvTimeout

BroadcastTimeout [HostAddress]

WrongPacketType Word16 Word16

WrongSender Device HostAddress

UnexpectedSockAddrType SockAddr

UnexpectedPort PortNumber

ProductLookupError ProductLookupError

Instances

Generic LifxError

Defined in Lifx.Lan.Internal

Associated Types

type Rep LifxError :: Type -> Type

Methods

from :: LifxError -> Rep LifxError x

to :: Rep LifxError x -> LifxError

Show LifxError

Defined in Lifx.Lan.Internal

Methods

showsPrec :: Int -> LifxError -> ShowS

show :: LifxError -> String

showList :: [LifxError] -> ShowS

Eq LifxError

Defined in Lifx.Lan.Internal

Methods

(==) :: LifxError -> LifxError -> Bool

(/=) :: LifxError -> LifxError -> Bool

Ord LifxError

Defined in Lifx.Lan.Internal

Methods

compare :: LifxError -> LifxError -> Ordering

(<) :: LifxError -> LifxError -> Bool

(<=) :: LifxError -> LifxError -> Bool

(>) :: LifxError -> LifxError -> Bool

(>=) :: LifxError -> LifxError -> Bool

max :: LifxError -> LifxError -> LifxError

min :: LifxError -> LifxError -> LifxError

MonadError e m => MonadError (Either e LifxError) (LifxT m)

Defined in Lifx.Lan.Internal

Methods

throwError :: Either e LifxError -> LifxT m a

catchError :: LifxT m a -> (Either e LifxError -> LifxT m a) -> LifxT m a

type Rep LifxError

Defined in Lifx.Lan.Internal

type Rep LifxError = D1 ('MetaData "LifxError" "Lifx.Lan.Internal" "lifx-lan-0.8.3-30j063vj3wPEAgIf7LzxCG" 'False) (((C1 ('MetaCons "DecodeFailure" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteOffset) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String))) :+: C1 ('MetaCons "RecvTimeout" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "BroadcastTimeout" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [HostAddress])) :+: C1 ('MetaCons "WrongPacketType" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16)))) :+: ((C1 ('MetaCons "WrongSender" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Device) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 HostAddress)) :+: C1 ('MetaCons "UnexpectedSockAddrType" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SockAddr))) :+: (C1 ('MetaCons "UnexpectedPort" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PortNumber)) :+: C1 ('MetaCons "ProductLookupError" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ProductLookupError)))))

class MonadIO m => MonadLifxIO m where

A monad for sending and receiving LIFX messages.

Minimal complete definition

getSocket, getSource, getTimeout, incrementCounter, getCounter, lifxThrowIO

Methods

getSocket :: m Socket

getSource :: m Word32

getTimeout :: m Int

incrementCounter :: m ()

getCounter :: m Word8

lifxThrowIO :: LifxError -> m a

handleOldMessage

Arguments

:: Word8

expected counter value

-> Word8

actual counter value

-> Word16

packet type

-> ByteString

payload

-> m ()

Instances

MonadIO m => MonadLifxIO (LifxT m)

Defined in Lifx.Lan.Internal

Methods

getSocket :: LifxT m Socket

getSource :: LifxT m Word32

getTimeout :: LifxT m Int

incrementCounter :: LifxT m ()

getCounter :: LifxT m Word8

lifxThrowIO :: LifxError -> LifxT m a

handleOldMessage :: Word8 -> Word8 -> Word16 -> ByteString -> LifxT m ()

newtype LifxT m a

Constructors

LifxT

Fields

• unwrap :: StateT Word8 (ReaderT (Socket, Word32, Int) (ExceptT LifxError m)) a

Instances

MonadTrans LifxT

Defined in Lifx.Lan.Internal

Methods

lift :: Monad m => m a -> LifxT m a

MonadReader s m => MonadReader s (LifxT m)

Defined in Lifx.Lan.Internal

Methods

ask :: LifxT m s

local :: (s -> s) -> LifxT m a -> LifxT m a

reader :: (s -> a) -> LifxT m a

MonadState s m => MonadState s (LifxT m)

Defined in Lifx.Lan.Internal

Methods

get :: LifxT m s

put :: s -> LifxT m ()

state :: (s -> (a, s)) -> LifxT m a

MonadIO m => MonadIO (LifxT m)

Defined in Lifx.Lan.Internal

Methods

liftIO :: IO a -> LifxT m a

Monad m => Applicative (LifxT m)

Defined in Lifx.Lan.Internal

Methods

pure :: a -> LifxT m a

(<*>) :: LifxT m (a -> b) -> LifxT m a -> LifxT m b

liftA2 :: (a -> b -> c) -> LifxT m a -> LifxT m b -> LifxT m c

(*>) :: LifxT m a -> LifxT m b -> LifxT m b

(<*) :: LifxT m a -> LifxT m b -> LifxT m a

Functor m => Functor (LifxT m)

Defined in Lifx.Lan.Internal

Methods

fmap :: (a -> b) -> LifxT m a -> LifxT m b

(<$) :: a -> LifxT m b -> LifxT m a

Monad m => Monad (LifxT m)

Defined in Lifx.Lan.Internal

Methods

(>>=) :: LifxT m a -> (a -> LifxT m b) -> LifxT m b

(>>) :: LifxT m a -> LifxT m b -> LifxT m b

return :: a -> LifxT m a

MonadIO m => MonadLifx (LifxT m)

Defined in Lifx.Lan

Associated Types

type MonadLifxError (LifxT m)

Methods

liftProductLookupError :: ProductLookupError -> MonadLifxError (LifxT m)

lifxThrow :: MonadLifxError (LifxT m) -> LifxT m a

sendMessage :: Device -> Message r -> LifxT m r

broadcastMessage :: Message r -> LifxT m [(Device, r)]

discoverDevices :: Maybe Int -> LifxT m [Device]

MonadIO m => MonadLifxIO (LifxT m)

Defined in Lifx.Lan.Internal

Methods

getSocket :: LifxT m Socket

getSource :: LifxT m Word32

getTimeout :: LifxT m Int

incrementCounter :: LifxT m ()

getCounter :: LifxT m Word8

lifxThrowIO :: LifxError -> LifxT m a

handleOldMessage :: Word8 -> Word8 -> Word16 -> ByteString -> LifxT m ()

MonadError e m => MonadError (Either e LifxError) (LifxT m)

Defined in Lifx.Lan.Internal

Methods

throwError :: Either e LifxError -> LifxT m a

catchError :: LifxT m a -> (Either e LifxError -> LifxT m a) -> LifxT m a

type MonadLifxError (LifxT m)

Defined in Lifx.Lan

type MonadLifxError (LifxT m) = LifxError

unLifx :: (Socket, Word32, Int) -> Word8 -> LifxT m a -> m (Either LifxError (a, Word8))

succ' :: (Eq a, Bounded a, Enum a) => a -> a

Safe, wraparound variant of succ.