EasyAlexa

class EmptyableSlot a  where

Members

• parseSlot' :: String -> a
• empty :: a
• name' :: Proxy a -> String
• slotValues' :: (Proxy a) -> Array { synonyms :: Array String, value :: String }

Instances

• (Slot a) => EmptyableSlot (Maybe a)

class Slot a  where

Members

• parseSlot :: String -> Maybe a
• name :: Proxy a -> String
• slotValues :: (Proxy a) -> Array { synonyms :: Array String, value :: String }

data InputError

Constructors

• UnknownIntent String
• SlotMismatch

type SlotRec = { name :: String, typeName :: String, values :: Array { synonyms :: Array String, value :: String } }

type InputRec = { inputName :: String, slotRecs :: Array SlotRec }

class AlexaInput a  where

Members

• parseInput :: AlexaRequest -> Either InputError a
• inputList :: (Proxy a) -> NonEmptyArray InputRec

Instances

• (Generic a rep, AlexaInputRep rep) => AlexaInput a

class AlexaInputRep rep  where

Members

• parseInput' :: AlexaRequest -> Either InputError rep
• inputList' :: (Proxy rep) -> NonEmptyArray InputRec

Instances

• (AlexaInputRep (Constructor aname a), AlexaInputRep b, IsSymbol aname) => AlexaInputRep (Sum (Constructor aname a) b)
• (IsSymbol aname) => AlexaInputRep (Constructor aname NoArguments)
• (RowToList row rs, AlexaInputRow rs row, IsSymbol cname) => AlexaInputRep (Constructor cname (Argument (Record row)))

class AlexaInputRow (rs :: RowList) (r :: Row Type) | rs -> r where

Members

• parseSlots :: RLProxy rs -> Object { value :: String } -> Either InputError (Record r)
• slotList :: RLProxy rs -> Array SlotRec

Instances

• (Lacks sym row', IsSymbol sym, RowToList row rl, RowToList row' rl', Cons sym ty row' row, EmptyableSlot ty, AlexaInputRow rl' row') => AlexaInputRow (Cons sym ty rl') row
• AlexaInputRow Nil ()

languageModel :: forall a. AlexaInput a => Proxy a -> String -> Map String (NonEmptyArray String) -> Either String LanguageModel

standardBuiltins :: Array String