git.iko.soy/rowtype-yoga/ry-blocks
on main help sign in
Remove extrablatt
commitb798f902810fc4f97959cbaa282731e3e6f28e7a authorMark Eibes <mark.eibes@gmail.com> dateTue 8 Nov 2022, 16:04 (4 years ago) parenta5462a6
4 files changed+4−21
compare with main
unifiedsplit
spago.dhall−5 src/Yoga/Block/Atom/Button/Types.purs−12 src/Yoga/Block/Atom/Input/View/Label.purs+2−2 src/Yoga/Block/Container/Style.purs+2−2
spago.dhall−5
@@ -21,10 +21,8 @@ You can edit this file as you like.
2121 , "foreign-generic"
2222 , "foreign-object"
2323 , "framer-motion"
24− , "free"
2524 , "functions"
2625 , "heterogeneous"
27− , "heterogeneous-extrablatt"
2826 , "integers"
2927 , "interpolate"
3028 , "literals"
@@ -50,10 +48,8 @@ You can edit this file as you like.
5048 , "refs"
5149 , "remotedata"
5250 , "spec"
53− , "spec-discovery"
5451 , "st"
5552 , "strings"
56− , "tailrec"
5753 , "transformers"
5854 , "tuples"
5955 , "two-or-more"
@@ -66,7 +62,6 @@ You can edit this file as you like.
6662 , "web-events"
6763 , "web-html"
6864 , "web-uievents"
69− , "yoga-tree"
7065 ]
7166, packages = ./packages.dhall
7267, sources = [ "src/**/*.purs" ]
src/Yoga/Block/Atom/Button/Types.purs−12
@@ -6,8 +6,6 @@ import Data.Bounded.Generic (genericBottom, genericTop)
66import Data.Enum (class BoundedEnum, class Enum)
77import Data.Enum.Generic (genericCardinality, genericFromEnum, genericPred, genericSucc, genericToEnum)
88import Data.Generic.Rep (class Generic)
9−import Yoga.JSON (class ReadForeign, class WriteForeign)
10−import Yoga.JSON.Generics (genericReadForeignEnum, genericWriteForeignEnum)
119
1210data ButtonType
1311 = Primary
@@ -17,11 +15,6 @@ data ButtonType
1715derive instance Generic ButtonType _
1816derive instance Eq ButtonType
1917derive instance Ord ButtonType
20−instance WriteForeign ButtonType where
21− writeImpl = genericWriteForeignEnum { toConstructorName: identity }
22−
23−instance ReadForeign ButtonType where
24− readImpl = genericReadForeignEnum { toConstructorName: identity }
2518
2619instance Enum ButtonType where
2720 succ = genericSucc
@@ -50,11 +43,6 @@ data ButtonShape
5043derive instance Generic ButtonShape _
5144derive instance Eq ButtonShape
5245derive instance Ord ButtonShape
53−instance WriteForeign ButtonShape where
54− writeImpl = genericWriteForeignEnum { toConstructorName: identity }
55−
56−instance ReadForeign ButtonShape where
57− readImpl = genericReadForeignEnum { toConstructorName: identity }
5846
5947instance Enum ButtonShape where
6048 succ = genericSucc
src/Yoga/Block/Atom/Input/View/Label.purs+2−2
@@ -7,11 +7,11 @@ import Data.String.NonEmpty as NonEmptyString
77import Effect.Class.Console (warn)
88import Effect.Unsafe (unsafePerformEffect)
99import Framer.Motion as M
10−import Heterogeneous.Extrablatt.Rec (hsequenceRec)
1110import React.Basic.DOM (css)
1211import React.Basic.DOM as R
1312import React.Basic.Hooks (reactComponent)
1413import React.Basic.Hooks as React
14+import Record.Studio (sequenceRecord)
1515import Yoga.Block.Atom.Input.Style (SizeVariant, sizeVariantToFactor)
1616import Yoga.Block.Atom.Input.Style as Style
1717
@@ -41,7 +41,7 @@ component =
4141 inputRect <- getBoundingBoxFromRef inputRef
4242 parentWidth <- getOffsetWidthFromRef parentRef
4343 parentRect <- getBoundingBoxFromRef parentRef
44− case hsequenceRec $ { inputWidth, parentWidth, inputRect, parentRect } of
44+ case sequenceRecord $ { inputWidth, parentWidth, inputRect, parentRect } of
4545 Just p -> do
4646 let
4747 newOffsets =
src/Yoga/Block/Container/Style.purs+2−2
@@ -8,8 +8,8 @@ import Data.Symbol (class IsSymbol, reflectSymbol)
88import Effect.Uncurried (EffectFn2, runEffectFn2)
99import Foreign.Object (Object)
1010import Foreign.Object as Object
11−import Heterogeneous.Extrablatt.Rec (hmapRec)
1211import Heterogeneous.Mapping (class HMapWithIndex, class MappingWithIndex, hmap, hmapWithIndex)
12+import Record.Studio (mapRecord)
1313import Type.Proxy (Proxy)
1414import Unsafe.Coerce (unsafeCoerce)
1515import Web.DOM (Element)
@@ -502,7 +502,7 @@ colourWithDarkLightAlpha =
502502 $ makeCSSVarLabels defaultColours.light
503503
504504col ∷ FlatTheme StyleProperty
505−col = colour # hmapRec str
505+col = colour # mapRecord str
506506
507507autoSwitchColourTheme ∷ Style
508508autoSwitchColourTheme =