Safe Haskell	Safe-Inferred
Language	Haskell2010

Potato.Flow.SElts

Synopsis

type REltId = Int
type PChar = Char
type MPChar = Maybe PChar
getPCharWidth :: Char -> Int8
data FillStyle
- = FillStyle_Blank
- | FillStyle_Simple PChar
data SuperStyle = SuperStyle {
- _superStyle_tl :: MPChar
- _superStyle_tr :: MPChar
- _superStyle_bl :: MPChar
- _superStyle_br :: MPChar
- _superStyle_vertical :: MPChar
- _superStyle_horizontal :: MPChar
- _superStyle_point :: MPChar
- _superStyle_fill :: FillStyle
}
superStyle_fromListFormat :: [PChar] -> SuperStyle
superStyle_toListFormat :: SuperStyle -> [PChar]
data TextAlign
- = TextAlign_Left
- | TextAlign_Right
- | TextAlign_Center
convertTextAlignToTextZipperTextAlignment :: TextAlign -> TextAlignment
data TextStyle = TextStyle {
- _textStyle_alignment :: TextAlign
}
data AttachmentLocation
- = AL_Top
- | AL_Bot
- | AL_Left
- | AL_Right
- | AL_Any
type AttachmentOffsetRatio = Ratio Int
data Attachment = Attachment {
- _attachment_target :: REltId
- _attachment_location :: AttachmentLocation
- _attachment_offset_rel :: AttachmentOffsetRatio
}
attachment_offset_rel_default :: Ratio Int
attachment_create_default :: REltId -> AttachmentLocation -> Attachment
data SBoxTitle = SBoxTitle {
- _sBoxTitle_title :: Maybe Text
- _sBoxTitle_align :: TextAlign
}
data SBoxText = SBoxText {
- _sBoxText_text :: Text
- _sBoxText_style :: TextStyle
}
data SBoxType
- = SBoxType_Box
- | SBoxType_NoBox
- | SBoxType_BoxText
- | SBoxType_NoBoxText
sBoxType_isText :: SBoxType -> Bool
sBoxType_hasBorder :: SBoxType -> Bool
make_sBoxType :: Bool -> Bool -> SBoxType
data SBox = SBox {
- _sBox_box :: LBox
- _sBox_superStyle :: SuperStyle
- _sBox_title :: SBoxTitle
- _sBox_text :: SBoxText
- _sBox_boxType :: SBoxType
}
sBox_hasLabel :: SBox -> Bool
data LineAutoStyle
- = LineAutoStyle_Auto
- | LineAutoStyle_AutoStraight
- | LineAutoStyle_StraightAlwaysHorizontal
- | LineAutoStyle_StraightAlwaysVertical
data LineStyle = LineStyle {
- _lineStyle_leftArrows :: Text
- _lineStyle_rightArrows :: Text
- _lineStyle_upArrows :: Text
- _lineStyle_downArrows :: Text
}
lineStyle_fromListFormat :: ([PChar], [PChar], [PChar], [PChar]) -> LineStyle
lineStyle_toListFormat :: LineStyle -> ([PChar], [PChar], [PChar], [PChar])
data SAutoLineConstraint = SAutoLineConstraintFixed XY
data SAutoLineLabelPosition = SAutoLineLabelPositionRelative Float
data SAutoLineLabel = SAutoLineLabel {
- _sAutoLineLabel_index :: Int
- _sAutoLineLabel_position :: SAutoLineLabelPosition
- _sAutoLineLabel_text :: Text
}
data SAutoLine = SAutoLine {
- _sAutoLine_start :: XY
- _sAutoLine_end :: XY
- _sAutoLine_superStyle :: SuperStyle
- _sAutoLine_lineStyle :: LineStyle
- _sAutoLine_lineStyleEnd :: LineStyle
- _sAutoLine_attachStart :: Maybe Attachment
- _sAutoLine_attachEnd :: Maybe Attachment
- _sAutoLine_midpoints :: [SAutoLineConstraint]
- _sAutoLine_labels :: [SAutoLineLabel]
}
data SCartLines = SCartLines {
- _sCartLines_start :: XY
- _sCartLines_ends :: NonEmpty (Either Int Int)
- _sCartLines_style :: SuperStyle
}
type TextAreaMapping = Map XY PChar
data STextArea = STextArea {
- _sTextArea_box :: LBox
- _sTextArea_text :: TextAreaMapping
- _sTextArea_transparent :: Bool
}
data SElt
- = SEltNone
- | SEltFolderStart
- | SEltFolderEnd
- | SEltBox SBox
- | SEltLine SAutoLine
- | SEltTextArea STextArea
data SEltLabel = SEltLabel {
- _sEltLabel_name :: Text
- _sEltLabel_sElt :: SElt
}

Documentation

type REltId = Int Source #

type PChar = Char Source #

type MPChar = Maybe PChar Source #

getPCharWidth :: Char -> Int8 Source #

data FillStyle Source #

Constructors

FillStyle_Blank
FillStyle_Simple PChar

Instances

Instances details

FromJSON FillStyle Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser FillStyle # parseJSONList :: Value -> Parser [FillStyle] #
ToJSON FillStyle Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: FillStyle -> Value # toEncoding :: FillStyle -> Encoding # toJSONList :: [FillStyle] -> Value # toEncodingList :: [FillStyle] -> Encoding #
Generic FillStyle Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep FillStyle :: Type -> Type # Methods from :: FillStyle -> Rep FillStyle x # to :: Rep FillStyle x -> FillStyle #
Show FillStyle Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> FillStyle -> ShowS # show :: FillStyle -> String # showList :: [FillStyle] -> ShowS #
Binary FillStyle Source #
Instance details Defined in Potato.Flow.SElts Methods put :: FillStyle -> Put # get :: Get FillStyle # putList :: [FillStyle] -> Put #
Default FillStyle Source #
Instance details Defined in Potato.Flow.SElts Methods def :: FillStyle #
NFData FillStyle Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: FillStyle -> () #
Eq FillStyle Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: FillStyle -> FillStyle -> Bool # (/=) :: FillStyle -> FillStyle -> Bool #
type Rep FillStyle Source #
Instance details Defined in Potato.Flow.SElts type Rep FillStyle = D1 ('MetaData "FillStyle" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "FillStyle_Blank" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "FillStyle_Simple" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PChar)))

data SuperStyle Source #

Constructors

SuperStyle
Fields _superStyle_tl :: MPChar _superStyle_tr :: MPChar _superStyle_bl :: MPChar _superStyle_br :: MPChar _superStyle_vertical :: MPChar _superStyle_horizontal :: MPChar _superStyle_point :: MPChar _superStyle_fill :: FillStyle

Instances

Instances details

FromJSON SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SuperStyle # parseJSONList :: Value -> Parser [SuperStyle] #
ToJSON SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SuperStyle -> Value # toEncoding :: SuperStyle -> Encoding # toJSONList :: [SuperStyle] -> Value # toEncodingList :: [SuperStyle] -> Encoding #
Generic SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SuperStyle :: Type -> Type # Methods from :: SuperStyle -> Rep SuperStyle x # to :: Rep SuperStyle x -> SuperStyle #
Show SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SuperStyle -> ShowS # show :: SuperStyle -> String # showList :: [SuperStyle] -> ShowS #
Binary SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SuperStyle -> Put # get :: Get SuperStyle # putList :: [SuperStyle] -> Put #
Default SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Methods def :: SuperStyle #
NFData SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SuperStyle -> () #
Eq SuperStyle Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SuperStyle -> SuperStyle -> Bool # (/=) :: SuperStyle -> SuperStyle -> Bool #
Delta SuperStyle DeltaSuperStyle Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: SuperStyle -> DeltaSuperStyle -> SuperStyle Source # minusDelta :: SuperStyle -> DeltaSuperStyle -> SuperStyle Source #
type Rep SuperStyle Source #
Instance details Defined in Potato.Flow.SElts type Rep SuperStyle = D1 ('MetaData "SuperStyle" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SuperStyle" 'PrefixI 'True) (((S1 ('MetaSel ('Just "_superStyle_tl") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MPChar) :: S1 ('MetaSel ('Just "_superStyle_tr") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MPChar)) :: (S1 ('MetaSel ('Just "_superStyle_bl") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MPChar) :: S1 ('MetaSel ('Just "_superStyle_br") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MPChar))) :: ((S1 ('MetaSel ('Just "_superStyle_vertical") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MPChar) :: S1 ('MetaSel ('Just "_superStyle_horizontal") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MPChar)) :: (S1 ('MetaSel ('Just "_superStyle_point") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MPChar) :*: S1 ('MetaSel ('Just "_superStyle_fill") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 FillStyle)))))

superStyle_fromListFormat :: [PChar] -> SuperStyle Source #

superStyle_toListFormat :: SuperStyle -> [PChar] Source #

data TextAlign Source #

Constructors

TextAlign_Left
TextAlign_Right
TextAlign_Center

Instances

Instances details

FromJSON TextAlign Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser TextAlign # parseJSONList :: Value -> Parser [TextAlign] #
ToJSON TextAlign Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: TextAlign -> Value # toEncoding :: TextAlign -> Encoding # toJSONList :: [TextAlign] -> Value # toEncodingList :: [TextAlign] -> Encoding #
Generic TextAlign Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep TextAlign :: Type -> Type # Methods from :: TextAlign -> Rep TextAlign x # to :: Rep TextAlign x -> TextAlign #
Show TextAlign Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> TextAlign -> ShowS # show :: TextAlign -> String # showList :: [TextAlign] -> ShowS #
Binary TextAlign Source #
Instance details Defined in Potato.Flow.SElts Methods put :: TextAlign -> Put # get :: Get TextAlign # putList :: [TextAlign] -> Put #
Default TextAlign Source #
Instance details Defined in Potato.Flow.SElts Methods def :: TextAlign #
NFData TextAlign Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: TextAlign -> () #
Eq TextAlign Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: TextAlign -> TextAlign -> Bool # (/=) :: TextAlign -> TextAlign -> Bool #
Delta TextAlign DeltaTextAlign Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: TextAlign -> DeltaTextAlign -> TextAlign Source # minusDelta :: TextAlign -> DeltaTextAlign -> TextAlign Source #
type Rep TextAlign Source #
Instance details Defined in Potato.Flow.SElts type Rep TextAlign = D1 ('MetaData "TextAlign" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "TextAlign_Left" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "TextAlign_Right" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "TextAlign_Center" 'PrefixI 'False) (U1 :: Type -> Type)))

convertTextAlignToTextZipperTextAlignment :: TextAlign -> TextAlignment Source #

data TextStyle Source #

Constructors

TextStyle
Fields _textStyle_alignment :: TextAlign

Instances

Instances details

FromJSON TextStyle Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser TextStyle # parseJSONList :: Value -> Parser [TextStyle] #
ToJSON TextStyle Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: TextStyle -> Value # toEncoding :: TextStyle -> Encoding # toJSONList :: [TextStyle] -> Value # toEncodingList :: [TextStyle] -> Encoding #
Generic TextStyle Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep TextStyle :: Type -> Type # Methods from :: TextStyle -> Rep TextStyle x # to :: Rep TextStyle x -> TextStyle #
Show TextStyle Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> TextStyle -> ShowS # show :: TextStyle -> String # showList :: [TextStyle] -> ShowS #
Binary TextStyle Source #
Instance details Defined in Potato.Flow.SElts Methods put :: TextStyle -> Put # get :: Get TextStyle # putList :: [TextStyle] -> Put #
Default TextStyle Source #
Instance details Defined in Potato.Flow.SElts Methods def :: TextStyle #
NFData TextStyle Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: TextStyle -> () #
Eq TextStyle Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: TextStyle -> TextStyle -> Bool # (/=) :: TextStyle -> TextStyle -> Bool #
Delta TextStyle DeltaTextStyle Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: TextStyle -> DeltaTextStyle -> TextStyle Source # minusDelta :: TextStyle -> DeltaTextStyle -> TextStyle Source #
type Rep TextStyle Source #
Instance details Defined in Potato.Flow.SElts type Rep TextStyle = D1 ('MetaData "TextStyle" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "TextStyle" 'PrefixI 'True) (S1 ('MetaSel ('Just "_textStyle_alignment") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextAlign)))

data AttachmentLocation Source #

Constructors

AL_Top
AL_Bot
AL_Left
AL_Right
AL_Any

Instances

Instances details

FromJSON AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser AttachmentLocation # parseJSONList :: Value -> Parser [AttachmentLocation] #
ToJSON AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: AttachmentLocation -> Value # toEncoding :: AttachmentLocation -> Encoding # toJSONList :: [AttachmentLocation] -> Value # toEncodingList :: [AttachmentLocation] -> Encoding #
Generic AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep AttachmentLocation :: Type -> Type # Methods from :: AttachmentLocation -> Rep AttachmentLocation x # to :: Rep AttachmentLocation x -> AttachmentLocation #
Show AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> AttachmentLocation -> ShowS # show :: AttachmentLocation -> String # showList :: [AttachmentLocation] -> ShowS #
Binary AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts Methods put :: AttachmentLocation -> Put # get :: Get AttachmentLocation # putList :: [AttachmentLocation] -> Put #
NFData AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: AttachmentLocation -> () #
Eq AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: AttachmentLocation -> AttachmentLocation -> Bool # (/=) :: AttachmentLocation -> AttachmentLocation -> Bool #
TransformMe AttachmentLocation Source #
Instance details Defined in Potato.Flow.Methods.LineTypes Methods transformMe_rotateLeft :: AttachmentLocation -> AttachmentLocation Source # transformMe_rotateRight :: AttachmentLocation -> AttachmentLocation Source # transformMe_reflectHorizontally :: AttachmentLocation -> AttachmentLocation Source # transformMe_reflectVertically :: AttachmentLocation -> AttachmentLocation Source #
type Rep AttachmentLocation Source #
Instance details Defined in Potato.Flow.SElts type Rep AttachmentLocation = D1 ('MetaData "AttachmentLocation" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) ((C1 ('MetaCons "AL_Top" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "AL_Bot" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "AL_Left" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "AL_Right" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "AL_Any" 'PrefixI 'False) (U1 :: Type -> Type))))

type AttachmentOffsetRatio = Ratio Int Source #

data Attachment Source #

Constructors

Attachment
Fields _attachment_target :: REltId _attachment_location :: AttachmentLocation _attachment_offset_rel :: AttachmentOffsetRatio

Instances

Instances details

FromJSON Attachment Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser Attachment # parseJSONList :: Value -> Parser [Attachment] #
ToJSON Attachment Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: Attachment -> Value # toEncoding :: Attachment -> Encoding # toJSONList :: [Attachment] -> Value # toEncodingList :: [Attachment] -> Encoding #
Generic Attachment Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep Attachment :: Type -> Type # Methods from :: Attachment -> Rep Attachment x # to :: Rep Attachment x -> Attachment #
Show Attachment Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> Attachment -> ShowS # show :: Attachment -> String # showList :: [Attachment] -> ShowS #
Binary Attachment Source #
Instance details Defined in Potato.Flow.SElts Methods put :: Attachment -> Put # get :: Get Attachment # putList :: [Attachment] -> Put #
NFData Attachment Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: Attachment -> () #
Eq Attachment Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: Attachment -> Attachment -> Bool # (/=) :: Attachment -> Attachment -> Bool #
type Rep Attachment Source #
Instance details Defined in Potato.Flow.SElts type Rep Attachment = D1 ('MetaData "Attachment" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "Attachment" 'PrefixI 'True) (S1 ('MetaSel ('Just "_attachment_target") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 REltId) :: (S1 ('MetaSel ('Just "_attachment_location") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 AttachmentLocation) :: S1 ('MetaSel ('Just "_attachment_offset_rel") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 AttachmentOffsetRatio))))

attachment_offset_rel_default :: Ratio Int Source #

attachment_create_default :: REltId -> AttachmentLocation -> Attachment Source #

data SBoxTitle Source #

Constructors

SBoxTitle
Fields _sBoxTitle_title :: Maybe Text _sBoxTitle_align :: TextAlign

Instances

Instances details

FromJSON SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SBoxTitle # parseJSONList :: Value -> Parser [SBoxTitle] #
ToJSON SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SBoxTitle -> Value # toEncoding :: SBoxTitle -> Encoding # toJSONList :: [SBoxTitle] -> Value # toEncodingList :: [SBoxTitle] -> Encoding #
Generic SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SBoxTitle :: Type -> Type # Methods from :: SBoxTitle -> Rep SBoxTitle x # to :: Rep SBoxTitle x -> SBoxTitle #
Show SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SBoxTitle -> ShowS # show :: SBoxTitle -> String # showList :: [SBoxTitle] -> ShowS #
Binary SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SBoxTitle -> Put # get :: Get SBoxTitle # putList :: [SBoxTitle] -> Put #
Default SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Methods def :: SBoxTitle #
NFData SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SBoxTitle -> () #
Eq SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SBoxTitle -> SBoxTitle -> Bool # (/=) :: SBoxTitle -> SBoxTitle -> Bool #
type Rep SBoxTitle Source #
Instance details Defined in Potato.Flow.SElts type Rep SBoxTitle = D1 ('MetaData "SBoxTitle" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SBoxTitle" 'PrefixI 'True) (S1 ('MetaSel ('Just "_sBoxTitle_title") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Text)) :*: S1 ('MetaSel ('Just "_sBoxTitle_align") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextAlign)))

data SBoxText Source #

Constructors

SBoxText
Fields _sBoxText_text :: Text _sBoxText_style :: TextStyle

Instances

Instances details

FromJSON SBoxText Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SBoxText # parseJSONList :: Value -> Parser [SBoxText] #
ToJSON SBoxText Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SBoxText -> Value # toEncoding :: SBoxText -> Encoding # toJSONList :: [SBoxText] -> Value # toEncodingList :: [SBoxText] -> Encoding #
Generic SBoxText Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SBoxText :: Type -> Type # Methods from :: SBoxText -> Rep SBoxText x # to :: Rep SBoxText x -> SBoxText #
Show SBoxText Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SBoxText -> ShowS # show :: SBoxText -> String # showList :: [SBoxText] -> ShowS #
Binary SBoxText Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SBoxText -> Put # get :: Get SBoxText # putList :: [SBoxText] -> Put #
Default SBoxText Source #
Instance details Defined in Potato.Flow.SElts Methods def :: SBoxText #
NFData SBoxText Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SBoxText -> () #
Eq SBoxText Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SBoxText -> SBoxText -> Bool # (/=) :: SBoxText -> SBoxText -> Bool #
Delta SBoxText CBoxText Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: SBoxText -> CBoxText -> SBoxText Source # minusDelta :: SBoxText -> CBoxText -> SBoxText Source #
type Rep SBoxText Source #
Instance details Defined in Potato.Flow.SElts type Rep SBoxText = D1 ('MetaData "SBoxText" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SBoxText" 'PrefixI 'True) (S1 ('MetaSel ('Just "_sBoxText_text") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "_sBoxText_style") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextStyle)))

data SBoxType Source #

Constructors

SBoxType_Box
SBoxType_NoBox
SBoxType_BoxText
SBoxType_NoBoxText

Instances

Instances details

FromJSON SBoxType Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SBoxType # parseJSONList :: Value -> Parser [SBoxType] #
ToJSON SBoxType Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SBoxType -> Value # toEncoding :: SBoxType -> Encoding # toJSONList :: [SBoxType] -> Value # toEncodingList :: [SBoxType] -> Encoding #
Generic SBoxType Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SBoxType :: Type -> Type # Methods from :: SBoxType -> Rep SBoxType x # to :: Rep SBoxType x -> SBoxType #
Show SBoxType Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SBoxType -> ShowS # show :: SBoxType -> String # showList :: [SBoxType] -> ShowS #
Binary SBoxType Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SBoxType -> Put # get :: Get SBoxType # putList :: [SBoxType] -> Put #
Default SBoxType Source #
Instance details Defined in Potato.Flow.SElts Methods def :: SBoxType #
NFData SBoxType Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SBoxType -> () #
Eq SBoxType Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SBoxType -> SBoxType -> Bool # (/=) :: SBoxType -> SBoxType -> Bool #
type Rep SBoxType Source #
Instance details Defined in Potato.Flow.SElts type Rep SBoxType = D1 ('MetaData "SBoxType" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) ((C1 ('MetaCons "SBoxType_Box" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "SBoxType_NoBox" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "SBoxType_BoxText" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "SBoxType_NoBoxText" 'PrefixI 'False) (U1 :: Type -> Type)))

sBoxType_isText :: SBoxType -> Bool Source #

sBoxType_hasBorder :: SBoxType -> Bool Source #

make_sBoxType :: Bool -> Bool -> SBoxType Source #

data SBox Source #

Constructors

SBox
Fields _sBox_box :: LBox _sBox_superStyle :: SuperStyle _sBox_title :: SBoxTitle _sBox_text :: SBoxText _sBox_boxType :: SBoxType

Instances

Instances details

FromJSON SBox Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SBox # parseJSONList :: Value -> Parser [SBox] #
ToJSON SBox Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SBox -> Value # toEncoding :: SBox -> Encoding # toJSONList :: [SBox] -> Value # toEncodingList :: [SBox] -> Encoding #
Generic SBox Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SBox :: Type -> Type # Methods from :: SBox -> Rep SBox x # to :: Rep SBox x -> SBox #
Show SBox Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SBox -> ShowS # show :: SBox -> String # showList :: [SBox] -> ShowS #
Binary SBox Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SBox -> Put # get :: Get SBox # putList :: [SBox] -> Put #
Default SBox Source #
Instance details Defined in Potato.Flow.SElts Methods def :: SBox #
NFData SBox Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SBox -> () #
Eq SBox Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SBox -> SBox -> Bool # (/=) :: SBox -> SBox -> Bool #
Delta SBox CBoxText Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: SBox -> CBoxText -> SBox Source # minusDelta :: SBox -> CBoxText -> SBox Source #
Delta SBox CBoxType Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: SBox -> CBoxType -> SBox Source # minusDelta :: SBox -> CBoxType -> SBox Source #
type Rep SBox Source #
Instance details Defined in Potato.Flow.SElts type Rep SBox = D1 ('MetaData "SBox" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SBox" 'PrefixI 'True) ((S1 ('MetaSel ('Just "_sBox_box") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 LBox) :: S1 ('MetaSel ('Just "_sBox_superStyle") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SuperStyle)) :: (S1 ('MetaSel ('Just "_sBox_title") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SBoxTitle) :: (S1 ('MetaSel ('Just "_sBox_text") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SBoxText) :: S1 ('MetaSel ('Just "_sBox_boxType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SBoxType)))))

sBox_hasLabel :: SBox -> Bool Source #

data LineAutoStyle Source #

Constructors

LineAutoStyle_Auto
LineAutoStyle_AutoStraight
LineAutoStyle_StraightAlwaysHorizontal
LineAutoStyle_StraightAlwaysVertical

Instances

Instances details

FromJSON LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser LineAutoStyle # parseJSONList :: Value -> Parser [LineAutoStyle] #
ToJSON LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: LineAutoStyle -> Value # toEncoding :: LineAutoStyle -> Encoding # toJSONList :: [LineAutoStyle] -> Value # toEncodingList :: [LineAutoStyle] -> Encoding #
Generic LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep LineAutoStyle :: Type -> Type # Methods from :: LineAutoStyle -> Rep LineAutoStyle x # to :: Rep LineAutoStyle x -> LineAutoStyle #
Show LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> LineAutoStyle -> ShowS # show :: LineAutoStyle -> String # showList :: [LineAutoStyle] -> ShowS #
Binary LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Methods put :: LineAutoStyle -> Put # get :: Get LineAutoStyle # putList :: [LineAutoStyle] -> Put #
Default LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Methods def :: LineAutoStyle #
NFData LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: LineAutoStyle -> () #
Eq LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: LineAutoStyle -> LineAutoStyle -> Bool # (/=) :: LineAutoStyle -> LineAutoStyle -> Bool #
type Rep LineAutoStyle Source #
Instance details Defined in Potato.Flow.SElts type Rep LineAutoStyle = D1 ('MetaData "LineAutoStyle" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) ((C1 ('MetaCons "LineAutoStyle_Auto" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "LineAutoStyle_AutoStraight" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "LineAutoStyle_StraightAlwaysHorizontal" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "LineAutoStyle_StraightAlwaysVertical" 'PrefixI 'False) (U1 :: Type -> Type)))

data LineStyle Source #

Constructors

LineStyle
Fields _lineStyle_leftArrows :: Text _lineStyle_rightArrows :: Text _lineStyle_upArrows :: Text _lineStyle_downArrows :: Text

Instances

Instances details

FromJSON LineStyle Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser LineStyle # parseJSONList :: Value -> Parser [LineStyle] #
ToJSON LineStyle Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: LineStyle -> Value # toEncoding :: LineStyle -> Encoding # toJSONList :: [LineStyle] -> Value # toEncodingList :: [LineStyle] -> Encoding #
Generic LineStyle Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep LineStyle :: Type -> Type # Methods from :: LineStyle -> Rep LineStyle x # to :: Rep LineStyle x -> LineStyle #
Show LineStyle Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> LineStyle -> ShowS # show :: LineStyle -> String # showList :: [LineStyle] -> ShowS #
Binary LineStyle Source #
Instance details Defined in Potato.Flow.SElts Methods put :: LineStyle -> Put # get :: Get LineStyle # putList :: [LineStyle] -> Put #
Default LineStyle Source #
Instance details Defined in Potato.Flow.SElts Methods def :: LineStyle #
NFData LineStyle Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: LineStyle -> () #
Eq LineStyle Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: LineStyle -> LineStyle -> Bool # (/=) :: LineStyle -> LineStyle -> Bool #
Delta LineStyle DeltaLineStyle Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: LineStyle -> DeltaLineStyle -> LineStyle Source # minusDelta :: LineStyle -> DeltaLineStyle -> LineStyle Source #
type Rep LineStyle Source #
Instance details Defined in Potato.Flow.SElts type Rep LineStyle = D1 ('MetaData "LineStyle" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "LineStyle" 'PrefixI 'True) ((S1 ('MetaSel ('Just "_lineStyle_leftArrows") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "_lineStyle_rightArrows") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :: (S1 ('MetaSel ('Just "_lineStyle_upArrows") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "_lineStyle_downArrows") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

lineStyle_fromListFormat :: ([PChar], [PChar], [PChar], [PChar]) -> LineStyle Source #

lineStyle_toListFormat :: LineStyle -> ([PChar], [PChar], [PChar], [PChar]) Source #

data SAutoLineConstraint Source #

Constructors

SAutoLineConstraintFixed XY

Instances

Instances details

FromJSON SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SAutoLineConstraint # parseJSONList :: Value -> Parser [SAutoLineConstraint] #
ToJSON SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SAutoLineConstraint -> Value # toEncoding :: SAutoLineConstraint -> Encoding # toJSONList :: [SAutoLineConstraint] -> Value # toEncodingList :: [SAutoLineConstraint] -> Encoding #
Generic SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SAutoLineConstraint :: Type -> Type # Methods from :: SAutoLineConstraint -> Rep SAutoLineConstraint x # to :: Rep SAutoLineConstraint x -> SAutoLineConstraint #
Show SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SAutoLineConstraint -> ShowS # show :: SAutoLineConstraint -> String # showList :: [SAutoLineConstraint] -> ShowS #
Binary SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SAutoLineConstraint -> Put # get :: Get SAutoLineConstraint # putList :: [SAutoLineConstraint] -> Put #
NFData SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SAutoLineConstraint -> () #
Eq SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SAutoLineConstraint -> SAutoLineConstraint -> Bool # (/=) :: SAutoLineConstraint -> SAutoLineConstraint -> Bool #
type Rep SAutoLineConstraint Source #
Instance details Defined in Potato.Flow.SElts type Rep SAutoLineConstraint = D1 ('MetaData "SAutoLineConstraint" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SAutoLineConstraintFixed" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 XY)))

data SAutoLineLabelPosition Source #

Constructors

SAutoLineLabelPositionRelative Float

Instances

Instances details

FromJSON SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SAutoLineLabelPosition # parseJSONList :: Value -> Parser [SAutoLineLabelPosition] #
ToJSON SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SAutoLineLabelPosition -> Value # toEncoding :: SAutoLineLabelPosition -> Encoding # toJSONList :: [SAutoLineLabelPosition] -> Value # toEncodingList :: [SAutoLineLabelPosition] -> Encoding #
Generic SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SAutoLineLabelPosition :: Type -> Type # Methods from :: SAutoLineLabelPosition -> Rep SAutoLineLabelPosition x # to :: Rep SAutoLineLabelPosition x -> SAutoLineLabelPosition #
Show SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SAutoLineLabelPosition -> ShowS # show :: SAutoLineLabelPosition -> String # showList :: [SAutoLineLabelPosition] -> ShowS #
Binary SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SAutoLineLabelPosition -> Put # get :: Get SAutoLineLabelPosition # putList :: [SAutoLineLabelPosition] -> Put #
NFData SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SAutoLineLabelPosition -> () #
Eq SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SAutoLineLabelPosition -> SAutoLineLabelPosition -> Bool # (/=) :: SAutoLineLabelPosition -> SAutoLineLabelPosition -> Bool #
type Rep SAutoLineLabelPosition Source #
Instance details Defined in Potato.Flow.SElts type Rep SAutoLineLabelPosition = D1 ('MetaData "SAutoLineLabelPosition" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SAutoLineLabelPositionRelative" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Float)))

data SAutoLineLabel Source #

Constructors

SAutoLineLabel
Fields _sAutoLineLabel_index :: Int _sAutoLineLabel_position :: SAutoLineLabelPosition _sAutoLineLabel_text :: Text

Instances

Instances details

FromJSON SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SAutoLineLabel # parseJSONList :: Value -> Parser [SAutoLineLabel] #
ToJSON SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SAutoLineLabel -> Value # toEncoding :: SAutoLineLabel -> Encoding # toJSONList :: [SAutoLineLabel] -> Value # toEncodingList :: [SAutoLineLabel] -> Encoding #
Generic SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SAutoLineLabel :: Type -> Type # Methods from :: SAutoLineLabel -> Rep SAutoLineLabel x # to :: Rep SAutoLineLabel x -> SAutoLineLabel #
Show SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SAutoLineLabel -> ShowS # show :: SAutoLineLabel -> String # showList :: [SAutoLineLabel] -> ShowS #
Binary SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SAutoLineLabel -> Put # get :: Get SAutoLineLabel # putList :: [SAutoLineLabel] -> Put #
Default SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Methods def :: SAutoLineLabel #
NFData SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SAutoLineLabel -> () #
Eq SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SAutoLineLabel -> SAutoLineLabel -> Bool # (/=) :: SAutoLineLabel -> SAutoLineLabel -> Bool #
type Rep SAutoLineLabel Source #
Instance details Defined in Potato.Flow.SElts type Rep SAutoLineLabel = D1 ('MetaData "SAutoLineLabel" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SAutoLineLabel" 'PrefixI 'True) (S1 ('MetaSel ('Just "_sAutoLineLabel_index") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :: (S1 ('MetaSel ('Just "_sAutoLineLabel_position") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SAutoLineLabelPosition) :: S1 ('MetaSel ('Just "_sAutoLineLabel_text") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data SAutoLine Source #

Constructors

SAutoLine
Fields _sAutoLine_start :: XY _sAutoLine_end :: XY _sAutoLine_superStyle :: SuperStyle _sAutoLine_lineStyle :: LineStyle _sAutoLine_lineStyleEnd :: LineStyle _sAutoLine_attachStart :: Maybe Attachment _sAutoLine_attachEnd :: Maybe Attachment _sAutoLine_midpoints :: [SAutoLineConstraint] _sAutoLine_labels :: [SAutoLineLabel]

Instances

Instances details

FromJSON SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SAutoLine # parseJSONList :: Value -> Parser [SAutoLine] #
ToJSON SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SAutoLine -> Value # toEncoding :: SAutoLine -> Encoding # toJSONList :: [SAutoLine] -> Value # toEncodingList :: [SAutoLine] -> Encoding #
Generic SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SAutoLine :: Type -> Type # Methods from :: SAutoLine -> Rep SAutoLine x # to :: Rep SAutoLine x -> SAutoLine #
Show SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SAutoLine -> ShowS # show :: SAutoLine -> String # showList :: [SAutoLine] -> ShowS #
Binary SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SAutoLine -> Put # get :: Get SAutoLine # putList :: [SAutoLine] -> Put #
Default SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Methods def :: SAutoLine #
NFData SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SAutoLine -> () #
Eq SAutoLine Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SAutoLine -> SAutoLine -> Bool # (/=) :: SAutoLine -> SAutoLine -> Bool #
Delta SAutoLine CLine Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: SAutoLine -> CLine -> SAutoLine Source # minusDelta :: SAutoLine -> CLine -> SAutoLine Source #
type Rep SAutoLine Source #
Instance details Defined in Potato.Flow.SElts type Rep SAutoLine = D1 ('MetaData "SAutoLine" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SAutoLine" 'PrefixI 'True) (((S1 ('MetaSel ('Just "_sAutoLine_start") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 XY) :: S1 ('MetaSel ('Just "_sAutoLine_end") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 XY)) :: (S1 ('MetaSel ('Just "_sAutoLine_superStyle") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SuperStyle) :: S1 ('MetaSel ('Just "_sAutoLine_lineStyle") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 LineStyle))) :: ((S1 ('MetaSel ('Just "_sAutoLine_lineStyleEnd") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 LineStyle) :: S1 ('MetaSel ('Just "_sAutoLine_attachStart") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Attachment))) :: (S1 ('MetaSel ('Just "_sAutoLine_attachEnd") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Attachment)) :: (S1 ('MetaSel ('Just "_sAutoLine_midpoints") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [SAutoLineConstraint]) :: S1 ('MetaSel ('Just "_sAutoLine_labels") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [SAutoLineLabel]))))))

data SCartLines Source #

Constructors

SCartLines
Fields _sCartLines_start :: XY _sCartLines_ends :: NonEmpty (Either Int Int) _sCartLines_style :: SuperStyle

Instances

Instances details

FromJSON SCartLines Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SCartLines # parseJSONList :: Value -> Parser [SCartLines] #
ToJSON SCartLines Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SCartLines -> Value # toEncoding :: SCartLines -> Encoding # toJSONList :: [SCartLines] -> Value # toEncodingList :: [SCartLines] -> Encoding #
Generic SCartLines Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SCartLines :: Type -> Type # Methods from :: SCartLines -> Rep SCartLines x # to :: Rep SCartLines x -> SCartLines #
Show SCartLines Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SCartLines -> ShowS # show :: SCartLines -> String # showList :: [SCartLines] -> ShowS #
Binary SCartLines Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SCartLines -> Put # get :: Get SCartLines # putList :: [SCartLines] -> Put #
NFData SCartLines Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SCartLines -> () #
Eq SCartLines Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SCartLines -> SCartLines -> Bool # (/=) :: SCartLines -> SCartLines -> Bool #
type Rep SCartLines Source #
Instance details Defined in Potato.Flow.SElts type Rep SCartLines = D1 ('MetaData "SCartLines" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SCartLines" 'PrefixI 'True) (S1 ('MetaSel ('Just "_sCartLines_start") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 XY) :: (S1 ('MetaSel ('Just "_sCartLines_ends") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (NonEmpty (Either Int Int))) :: S1 ('MetaSel ('Just "_sCartLines_style") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SuperStyle))))

type TextAreaMapping = Map XY PChar Source #

data STextArea Source #

abitrary text confined to a box

Constructors

STextArea
Fields _sTextArea_box :: LBox _sTextArea_text :: TextAreaMapping _sTextArea_transparent :: Bool

Instances

Instances details

FromJSON STextArea Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser STextArea # parseJSONList :: Value -> Parser [STextArea] #
ToJSON STextArea Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: STextArea -> Value # toEncoding :: STextArea -> Encoding # toJSONList :: [STextArea] -> Value # toEncodingList :: [STextArea] -> Encoding #
Generic STextArea Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep STextArea :: Type -> Type # Methods from :: STextArea -> Rep STextArea x # to :: Rep STextArea x -> STextArea #
Show STextArea Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> STextArea -> ShowS # show :: STextArea -> String # showList :: [STextArea] -> ShowS #
Binary STextArea Source #
Instance details Defined in Potato.Flow.SElts Methods put :: STextArea -> Put # get :: Get STextArea # putList :: [STextArea] -> Put #
Default STextArea Source #
Instance details Defined in Potato.Flow.SElts Methods def :: STextArea #
NFData STextArea Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: STextArea -> () #
Eq STextArea Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: STextArea -> STextArea -> Bool # (/=) :: STextArea -> STextArea -> Bool #
type Rep STextArea Source #
Instance details Defined in Potato.Flow.SElts type Rep STextArea = D1 ('MetaData "STextArea" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "STextArea" 'PrefixI 'True) (S1 ('MetaSel ('Just "_sTextArea_box") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 LBox) :: (S1 ('MetaSel ('Just "_sTextArea_text") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextAreaMapping) :: S1 ('MetaSel ('Just "_sTextArea_transparent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))))

data SElt Source #

Constructors

SEltNone
SEltFolderStart
SEltFolderEnd
SEltBox SBox
SEltLine SAutoLine
SEltTextArea STextArea

Instances

Instances details

FromJSON SElt Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SElt # parseJSONList :: Value -> Parser [SElt] #
ToJSON SElt Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SElt -> Value # toEncoding :: SElt -> Encoding # toJSONList :: [SElt] -> Value # toEncodingList :: [SElt] -> Encoding #
Generic SElt Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SElt :: Type -> Type # Methods from :: SElt -> Rep SElt x # to :: Rep SElt x -> SElt #
Show SElt Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SElt -> ShowS # show :: SElt -> String # showList :: [SElt] -> ShowS #
Binary SElt Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SElt -> Put # get :: Get SElt # putList :: [SElt] -> Put #
NFData SElt Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SElt -> () #
Eq SElt Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SElt -> SElt -> Bool # (/=) :: SElt -> SElt -> Bool #
Delta SElt DeltaTextAreaToggle Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: SElt -> DeltaTextAreaToggle -> SElt Source # minusDelta :: SElt -> DeltaTextAreaToggle -> SElt Source #
type Rep SElt Source #
Instance details Defined in Potato.Flow.SElts type Rep SElt = D1 ('MetaData "SElt" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) ((C1 ('MetaCons "SEltNone" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "SEltFolderStart" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "SEltFolderEnd" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "SEltBox" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SBox)) :+: (C1 ('MetaCons "SEltLine" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SAutoLine)) :+: C1 ('MetaCons "SEltTextArea" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 STextArea)))))

data SEltLabel Source #

Constructors

SEltLabel
Fields _sEltLabel_name :: Text _sEltLabel_sElt :: SElt

Instances

Instances details

FromJSON SEltLabel Source #
Instance details Defined in Potato.Flow.SElts Methods parseJSON :: Value -> Parser SEltLabel # parseJSONList :: Value -> Parser [SEltLabel] #
ToJSON SEltLabel Source #
Instance details Defined in Potato.Flow.SElts Methods toJSON :: SEltLabel -> Value # toEncoding :: SEltLabel -> Encoding # toJSONList :: [SEltLabel] -> Value # toEncodingList :: [SEltLabel] -> Encoding #
Generic SEltLabel Source #
Instance details Defined in Potato.Flow.SElts Associated Types type Rep SEltLabel :: Type -> Type # Methods from :: SEltLabel -> Rep SEltLabel x # to :: Rep SEltLabel x -> SEltLabel #
Show SEltLabel Source #
Instance details Defined in Potato.Flow.SElts Methods showsPrec :: Int -> SEltLabel -> ShowS # show :: SEltLabel -> String # showList :: [SEltLabel] -> ShowS #
Binary SEltLabel Source #
Instance details Defined in Potato.Flow.SElts Methods put :: SEltLabel -> Put # get :: Get SEltLabel # putList :: [SEltLabel] -> Put #
NFData SEltLabel Source #
Instance details Defined in Potato.Flow.SElts Methods rnf :: SEltLabel -> () #
Eq SEltLabel Source #
Instance details Defined in Potato.Flow.SElts Methods (==) :: SEltLabel -> SEltLabel -> Bool # (/=) :: SEltLabel -> SEltLabel -> Bool #
Delta SEltLabel CRename Source #
Instance details Defined in Potato.Flow.Types Methods plusDelta :: SEltLabel -> CRename -> SEltLabel Source # minusDelta :: SEltLabel -> CRename -> SEltLabel Source #
type Rep SEltLabel Source #
Instance details Defined in Potato.Flow.SElts type Rep SEltLabel = D1 ('MetaData "SEltLabel" "Potato.Flow.SElts" "tinytools-0.1.0.0-DrleRpyeSqeBtRJXQdRmv7" 'False) (C1 ('MetaCons "SEltLabel" 'PrefixI 'True) (S1 ('MetaSel ('Just "_sEltLabel_name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "_sEltLabel_sElt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SElt)))