Skip to content

Commit 995a553

Browse files
garybgaryb
committed
Fix warnings, add instances for everything
1 parent 53e210e commit 995a553

30 files changed

+483
-231
lines changed

‎bower.json

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@
2222
],
2323
"dependencies": {
2424
"purescript-generics": "^1.0.0",
25-
"purescript-nonempty": "^1.0.0",
25+
"purescript-nonempty": "^1.1.0",
2626
"purescript-profunctor": "^1.0.0",
2727
"purescript-strings": "^1.0.0",
2828
"purescript-these": "^1.0.0",

‎src/CSS.purs

Lines changed: 24 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -1,25 +1,26 @@
11
module CSS (module X) where
22

3-
import CSS.Animation as X
4-
import CSS.Background as X
5-
import CSS.Border as X
6-
import CSS.Box as X
7-
import CSS.Color as X
8-
import CSS.Display as X
9-
import CSS.Elements as X
10-
import CSS.Flexbox hiding (flex) as X
11-
import CSS.FontFace as X
12-
import CSS.Font as X
13-
import CSS.Geometry as X
14-
import CSS.Gradient as X
15-
import CSS.Property as X
16-
import CSS.Pseudo as X
17-
import CSS.Selector as X
18-
import CSS.Size as X
19-
import CSS.String as X
20-
import CSS.Stylesheet as X
21-
import CSS.Text as X
22-
import CSS.Text.Whitespace as X
23-
import CSS.Time as X
24-
import CSS.Transform as X
25-
import CSS.Transition as X
3+
import CSS.Animation (AnimationDirection(..), AnimationName(..), FillMode(..), IterationCount(..), alternate, alternateReverse, animation, backwards, forwards, infinite, iterationCount, normalAnimationDirection, reverse) as X
4+
import CSS.Background (class Background, class Loc, BackgroundAttachment, BackgroundClip, BackgroundImage, BackgroundOrigin, BackgroundPosition, BackgroundRepeat, BackgroundSize, Direction, Location, Side, angular, attachFixed, attachScroll, background, backgroundAttachment, backgroundAttachments, backgroundClip, backgroundClips, backgroundColor, backgroundImage, backgroundImages, backgroundOrigin, backgroundOrigins, backgroundPosition, backgroundPositions, backgroundRepeat, backgroundRepeats, backgroundSize, backgroundSizes, boxClip, by, contain, cover, location, noRepeat, origin, placed, positioned, repeat, repeatX, repeatY, round, sideBottom, sideCenter, sideLeft, sideMiddle, sideRight, sideTop, space, straight, url, xyRepeat) as X
5+
import CSS.Border (Stroke(..), border, borderColor, borderRadius, dashed, dotted, double, groove, inset, outset, ridge, solid, wavy) as X
6+
import CSS.Box (BoxType, borderBox, boxShadow, boxSizing, contentBox, insetBoxShadow, paddingBox) as X
7+
import CSS.Color (Color, ColorSpace(..), aliceblue, antiquewhite, aqua, aquamarine, azure, beige, bisque, black, blanchedalmond, blue, blueviolet, brightness, brown, burlywood, cadetblue, chartreuse, chocolate, complementary, contrast, coral, cornflowerblue, cornsilk, crimson, cssStringHSLA, cssStringRGBA, cyan, darkblue, darkcyan, darken, darkgoldenrod, darkgray, darkgreen, darkgrey, darkkhaki, darkmagenta, darkolivegreen, darkorange, darkorchid, darkred, darksalmon, darkseagreen, darkslateblue, darkslategray, darkslategrey, darkturquoise, darkviolet, deeppink, deepskyblue, desaturate, dimgray, dimgrey, distance, dodgerblue, firebrick, floralwhite, forestgreen, fromHexString, fromInt, fuchsia, gainsboro, ghostwhite, gold, goldenrod, gray, graytone, green, greenyellow, grey, honeydew, hotpink, hsl, hsla, indianred, indigo, isLight, isReadable, ivory, khaki, lab, lavender, lavenderblush, lawngreen, lch, lemonchiffon, lightblue, lightcoral, lightcyan, lighten, lightgoldenrodyellow, lightgray, lightgreen, lightgrey, lightpink, lightsalmon, lightseagreen, lightskyblue, lightslategray, lightslategrey, lightsteelblue, lightyellow, lime, limegreen, linen, luminance, magenta, maroon, mediumaquamarine, mediumblue, mediumorchid, mediumpurple, mediumseagreen, mediumslateblue, mediumspringgreen, mediumturquoise, mediumvioletred, midnightblue, mintcream, mistyrose, mix, moccasin, navajowhite, navy, oldlace, olive, olivedrab, orange, orangered, orchid, palegoldenrod, palegreen, paleturquoise, palevioletred, papayawhip, peachpuff, peru, pink, plum, powderblue, purple, red, rgb, rgb', rgba, rgba', rosybrown, rotateHue, royalblue, saddlebrown, salmon, sandybrown, saturate, seagreen, seashell, sienna, silver, skyblue, slateblue, slategray, slategrey, snow, springgreen, steelblue, tan, teal, textColor, thistle, toGray, toHSLA, toHexString, toLCh, toLab, toRGBA, toRGBA', toXYZ, tomato, turquoise, violet, wheat, white, whitesmoke, xyz, yellow, yellowgreen) as X
8+
import CSS.Display (Display(..), Position(..), absolute, block, display, displayInherit, displayNone, fixed, flex, grid, inline, inlineBlock, inlineFlex, inlineGrid, inlineTable, listItem, position, relative, runIn, static, table, tableCaption, tableCell, tableColumn, tableColumnGroup, tableFooterGroup, tableHeaderGroup, tableRow, tableRowGroup) as X
9+
import CSS.Elements (a, abbr, address, area, article, aside, audio, b, bdi, bdo, blockquote, body, br, button, canvas, caption, cite, code, col, colgroup, datalist, dd, del, details, dfn, div, dl, dt, embed, fieldset, figcaption, figure, footer, form, h1, h2, h3, h4, h5, h6, header, hr, html, i, iframe, img, input, ins, kbd, label, legend, li, main, map, mark, meter, nav, object, ol, optgroup, output, p, pre, progress, q, s, samp, section, small, span, strong, sub, summary, sup, tbody, td, textarea, tfoot, th, thead, tr, u, ul, var) as X
10+
import CSS.Flexbox (class FlexEnd, class FlexStart, class SpaceAround, class SpaceBetween, class Stretch, AlignContentValue(..), AlignItemsValue(..), AlignSelfValue(..), FlexDirection(..), FlexWrap(..), JustifyContentValue(..), alignContent, alignItems, alignSelf, column, columnReverse, flexBasis, flexDirection, flexEnd, flexFlow, flexGrow, flexShrink, flexStart, flexWrap, justifyContent, nowrap, order, row, rowReverse, spaceAround, spaceBetween, stretch, wrap, wrapReverse) as X
11+
import CSS.FontFace (FontFaceFormat(..), FontFaceSrc(..), fontFaceFamily, fontFaceSrc, formatName) as X
12+
import CSS.Font (FontWeight(..), GenericFontFamily(..), bold, bolder, color, fontFamily, fontSize, fontWeight, lighter, sansSerif, weight) as X
13+
import CSS.Geometry (bottom, height, left, margin, marginBottom, marginLeft, marginRight, marginTop, maxHeight, maxWidth, minHeight, minWidth, padding, paddingBottom, paddingLeft, paddingRight, paddingTop, right, top, width) as X
14+
import CSS.Gradient (Extend, Radial, Ramp, circle, circular, closestCorner, closestSide, ellipse, elliptical, farthestCorner, farthestSide, hGradient, hRepeatingGradient, linearGradient, radialGradient, repeatingLinearGradient, repeatingRadialGradient, vGradient, vRepeatingGradient) as X
15+
import CSS.Property (class Val, Key(..), Literal(..), Prefixed(..), Value(..), cast, noCommas, plain, quote, value, (!)) as X
16+
import CSS.Render (Rendered, Inline(..), Sheet(..), collect, collect', face, feature, frame, getInline, getSheet, imp, kframe, mediaQuery, mediaType, merger, nel, predicate, properties, putInline, putStyleSheet, query', render, renderedInline, renderedSheet, rule', rules, selector, selector', selector'', sepWith) as X
17+
import CSS.Pseudo (hover) as X
18+
import CSS.Selector (Path(..), Predicate(..), Refinement(..), Selector(..), child, deep, element, star, with, (##), (**), (|>)) as X
19+
import CSS.Size (Abs, Deg, Rad, Rel, Angle(..), Size(..), deg, em, ex, nil, pct, pt, px, rad, rem, sym, vh, vmax, vmin, vw) as X
20+
import CSS.String (class IsString, fromString) as X
21+
import CSS.Stylesheet (CSS, App(..), Feature(..), Keyframes(..), MediaQuery(..), MediaType(..), NotOrOnly(..), Rule(..), StyleM(..), fontFace, importUrl, key, keyframes, keyframesFromTo, prefixed, query, rule, runS, select, (?)) as X
22+
import CSS.Text (TextDecoration(..), blink, lineThrough, noneTextDecoration, overline, textDecoration, underline) as X
23+
import CSS.Text.Whitespace (TextWhitespace, textWhitespace, whitespaceNoWrap, whitespaceNormal, whitespacePre, whitespacePreLine, whitespacePreWrap) as X
24+
import CSS.Time (Time(..), ms, sec) as X
25+
import CSS.Transform (Transformation(..), rotate, transform, transforms, translate) as X
26+
import CSS.Transition (TimingFunction(..), easeOut, linear) as X

‎src/CSS/Animation.purs

Lines changed: 23 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -2,17 +2,22 @@ module CSS.Animation where
22

33
import Prelude
44

5-
import Data.Tuple.Nested (tuple7)
65
import Data.Foldable (for_)
6+
import Data.Generic (class Generic)
7+
import Data.Tuple.Nested (tuple7)
78

8-
import CSS.Property
9-
import CSS.String
10-
import CSS.Stylesheet
11-
import CSS.Time
12-
import CSS.Transition
9+
import CSS.Property (class Val, Value, value)
10+
import CSS.String (class IsString, fromString)
11+
import CSS.Stylesheet (CSS, key)
12+
import CSS.Time (Time)
13+
import CSS.Transition (TimingFunction)
1314

1415
newtype AnimationDirection = AnimationDirection Value
1516

17+
derive instance eqAnimationDirection :: Eq AnimationDirection
18+
derive instance ordAnimationDirection :: Ord AnimationDirection
19+
derive instance genericAnimationDirection :: Generic AnimationDirection
20+
1621
instance valAnimationDirection :: Val AnimationDirection where
1722
value (AnimationDirection v) = v
1823

@@ -30,6 +35,10 @@ alternateReverse = AnimationDirection $ fromString "alternate-reverse"
3035

3136
newtype IterationCount = IterationCount Value
3237

38+
derive instance eqIterationCount :: Eq IterationCount
39+
derive instance ordIterationCount :: Ord IterationCount
40+
derive instance genericIterationCount :: Generic IterationCount
41+
3342
instance valIterationCount :: Val IterationCount where
3443
value (IterationCount v) = v
3544

@@ -41,6 +50,10 @@ iterationCount = IterationCount <<< value
4150

4251
newtype FillMode = FillMode Value
4352

53+
derive instance eqFillMode :: Eq FillMode
54+
derive instance ordFillMode :: Ord FillMode
55+
derive instance genericFillMode :: Generic FillMode
56+
4457
instance valFillMode :: Val FillMode where
4558
value (FillMode v) = v
4659

@@ -62,10 +75,12 @@ animation p de f du i di fm = do
6275
, "-o-animation"
6376
]
6477

65-
66-
6778
newtype AnimationName = AnimationName Value
6879

80+
derive instance eqAnimationName :: Eq AnimationName
81+
derive instance ordAnimationName :: Ord AnimationName
82+
derive instance genericAnimationName :: Generic AnimationName
83+
6984
instance valAnimationName :: Val AnimationName where
7085
value (AnimationName v) = v
7186

‎src/CSS/Background.purs

Lines changed: 51 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -73,16 +73,18 @@ module CSS.Background
7373
)
7474
where
7575

76-
import Data.Tuple (Tuple(Tuple))
77-
import Prelude (($), (<>), (<<<))
78-
79-
import CSS.Box
80-
import CSS.Color
81-
import CSS.Common
82-
import CSS.Property
83-
import CSS.Stylesheet
76+
import Prelude
77+
78+
import Data.Generic (class Generic)
79+
import Data.Tuple (Tuple(..))
80+
81+
import CSS.Box (BoxType)
82+
import CSS.Color (Color)
83+
import CSS.Common (class Other, class Inherit, class None, class Auto, auto)
84+
import CSS.Property (class Val, Value, value)
85+
import CSS.Size (Size, Angle)
8486
import CSS.String (class IsString, fromString)
85-
import CSS.Size
87+
import CSS.Stylesheet (CSS, key)
8688

8789
-- | We implement the generic background property as a type class that accepts
8890
-- multiple value types. This allows us to combine different background aspects
@@ -131,6 +133,10 @@ backgroundColor = key $ fromString "background-color"
131133

132134
newtype BackgroundPosition = BackgroundPosition Value
133135

136+
derive instance eqBackgroundPosition :: Eq BackgroundPosition
137+
derive instance ordBackgroundPosition :: Ord BackgroundPosition
138+
derive instance genericBackgroundPosition :: Generic BackgroundPosition
139+
134140
instance isStringBackgroundPosition :: IsString BackgroundPosition where
135141
fromString = BackgroundPosition <<< fromString
136142

@@ -159,6 +165,10 @@ backgroundPositions = key $ fromString "background-position"
159165

160166
newtype BackgroundSize = BackgroundSize Value
161167

168+
derive instance eqBackgroundSize :: Eq BackgroundSize
169+
derive instance ordBackgroundSize :: Ord BackgroundSize
170+
derive instance genericBackgroundSize :: Generic BackgroundSize
171+
162172
instance isStringBackgroundSize :: IsString BackgroundSize where
163173
fromString = BackgroundSize <<< fromString
164174

@@ -193,6 +203,10 @@ backgroundSizes = key $ fromString "background-size"
193203

194204
newtype BackgroundRepeat = BackgroundRepeat Value
195205

206+
derive instance eqBackgroundRepeat :: Eq BackgroundRepeat
207+
derive instance ordBackgroundRepeat :: Ord BackgroundRepeat
208+
derive instance genericBackgroundRepeat :: Generic BackgroundRepeat
209+
196210
instance isStringBackgroundRepeat :: IsString BackgroundRepeat where
197211
fromString = BackgroundRepeat <<< fromString
198212

@@ -239,6 +253,10 @@ backgroundRepeats = key $ fromString "background-repeat"
239253

240254
newtype BackgroundImage = BackgroundImage Value
241255

256+
derive instance eqBackgroundImage :: Eq BackgroundImage
257+
derive instance ordBackgroundImage :: Ord BackgroundImage
258+
derive instance genericBackgroundImage :: Generic BackgroundImage
259+
242260
instance isStringBackgroundImage :: IsString BackgroundImage where
243261
fromString = BackgroundImage <<< fromString
244262

@@ -267,6 +285,10 @@ backgroundImages = key $ fromString "background-image"
267285

268286
newtype BackgroundOrigin = BackgroundOrigin Value
269287

288+
derive instance eqBackgroundOrigin :: Eq BackgroundOrigin
289+
derive instance ordBackgroundOrigin :: Ord BackgroundOrigin
290+
derive instance genericBackgroundOrigin :: Generic BackgroundOrigin
291+
270292
instance isStringBackgroundOrigin :: IsString BackgroundOrigin where
271293
fromString = BackgroundOrigin <<< fromString
272294

@@ -292,6 +314,10 @@ backgroundOrigins = key $ fromString "background-origin"
292314

293315
newtype BackgroundClip = BackgroundClip Value
294316

317+
derive instance eqBackgroundClip :: Eq BackgroundClip
318+
derive instance ordBackgroundClip :: Ord BackgroundClip
319+
derive instance genericBackgroundClip :: Generic BackgroundClip
320+
295321
instance isStringBackgroundClip :: IsString BackgroundClip where
296322
fromString = BackgroundClip <<< fromString
297323

@@ -317,6 +343,10 @@ backgroundClips = key $ fromString "background-clip"
317343

318344
newtype BackgroundAttachment = BackgroundAttachment Value
319345

346+
derive instance eqBackgroundAttachment :: Eq BackgroundAttachment
347+
derive instance ordBackgroundAttachment :: Ord BackgroundAttachment
348+
derive instance genericBackgroundAttachment :: Generic BackgroundAttachment
349+
320350
instance isStringBackgroundAttachment :: IsString BackgroundAttachment where
321351
fromString = BackgroundAttachment <<< fromString
322352

@@ -345,6 +375,10 @@ backgroundAttachments = key $ fromString "background-attachment"
345375

346376
newtype Side = Side Value
347377

378+
derive instance eqSide :: Eq Side
379+
derive instance ordSide :: Ord Side
380+
derive instance genericSide :: Generic Side
381+
348382
instance isStringSide :: IsString Side where
349383
fromString = Side <<< fromString
350384

@@ -382,6 +416,10 @@ sideMiddle = Side $ fromString "middle"
382416

383417
newtype Direction = Direction Value
384418

419+
derive instance eqDirection :: Eq Direction
420+
derive instance ordDirection :: Ord Direction
421+
derive instance genericDirection :: Generic Direction
422+
385423
instance valDirection :: Val Direction where
386424
value (Direction v) = v
387425

@@ -396,6 +434,10 @@ angular a = Direction (value a)
396434

397435
newtype Location = Location Value
398436

437+
derive instance eqLocation :: Eq Location
438+
derive instance ordLocation :: Ord Location
439+
derive instance genericLocation :: Generic Location
440+
399441
instance valLocation :: Val Location where
400442
value (Location v) = v
401443

‎src/CSS/Border.purs

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -2,16 +2,21 @@ module CSS.Border where
22

33
import Prelude
44

5+
import Data.Generic (class Generic)
56
import Data.Tuple.Nested (tuple3, tuple4)
67

7-
import CSS.Color
8-
import CSS.Property
9-
import CSS.Size
10-
import CSS.String
11-
import CSS.Stylesheet
8+
import CSS.Color (Color)
9+
import CSS.Property (class Val, Value)
10+
import CSS.Size (Size, Abs)
11+
import CSS.String (fromString)
12+
import CSS.Stylesheet (CSS, key)
1213

1314
newtype Stroke = Stroke Value
1415

16+
derive instance eqStroke :: Eq Stroke
17+
derive instance ordStroke :: Ord Stroke
18+
derive instance genericStroke :: Generic Stroke
19+
1520
instance valStroke :: Val Stroke where
1621
value (Stroke v) = v
1722

‎src/CSS/Box.purs

Lines changed: 13 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -7,20 +7,26 @@ module CSS.Box
77
)
88
where
99

10-
import Prelude (($), (<>), (<<<))
10+
import Prelude
1111

12-
import CSS.Color
13-
import CSS.Common
14-
import CSS.Property
15-
import CSS.Stylesheet
16-
import CSS.Size
12+
import Data.Generic (class Generic)
13+
14+
import CSS.Border (Stroke)
15+
import CSS.Color (Color)
16+
import CSS.Common (class Inherit, browsers)
17+
import CSS.Property (class Val, Value, (!))
18+
import CSS.Size (Size)
1719
import CSS.String (class IsString, fromString)
18-
import CSS.Border
20+
import CSS.Stylesheet (CSS, prefixed, key)
1921

2022
-------------------------------------------------------------------------------
2123

2224
newtype BoxType = BoxType Value
2325

26+
derive instance eqBoxType :: Eq BoxType
27+
derive instance ordBoxType :: Ord BoxType
28+
derive instance genericBoxType :: Generic BoxType
29+
2430
instance isStringBoxType :: IsString BoxType where
2531
fromString = BoxType <<< fromString
2632

‎src/CSS/Color.purs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,5 +3,5 @@ module CSS.Color
33
, module Color.Scheme.X11
44
) where
55

6-
import Color
7-
import Color.Scheme.X11
6+
import Color (Color, ColorSpace(..), black, brightness, complementary, contrast, cssStringHSLA, cssStringRGBA, darken, desaturate, distance, fromHexString, fromInt, graytone, hsl, hsla, isLight, isReadable, lab, lch, lighten, luminance, mix, rgb, rgb', rgba, rgba', rotateHue, saturate, textColor, toGray, toHSLA, toHexString, toLCh, toLab, toRGBA, toRGBA', toXYZ, white, xyz)
7+
import Color.Scheme.X11 (aliceblue, antiquewhite, aqua, aquamarine, azure, beige, bisque, blanchedalmond, blue, blueviolet, brown, burlywood, cadetblue, chartreuse, chocolate, coral, cornflowerblue, cornsilk, crimson, cyan, darkblue, darkcyan, darkgoldenrod, darkgray, darkgreen, darkgrey, darkkhaki, darkmagenta, darkolivegreen, darkorange, darkorchid, darkred, darksalmon, darkseagreen, darkslateblue, darkslategray, darkslategrey, darkturquoise, darkviolet, deeppink, deepskyblue, dimgray, dimgrey, dodgerblue, firebrick, floralwhite, forestgreen, fuchsia, gainsboro, ghostwhite, gold, goldenrod, gray, green, greenyellow, grey, honeydew, hotpink, indianred, indigo, ivory, khaki, lavender, lavenderblush, lawngreen, lemonchiffon, lightblue, lightcoral, lightcyan, lightgoldenrodyellow, lightgray, lightgreen, lightgrey, lightpink, lightsalmon, lightseagreen, lightskyblue, lightslategray, lightslategrey, lightsteelblue, lightyellow, lime, limegreen, linen, magenta, maroon, mediumaquamarine, mediumblue, mediumorchid, mediumpurple, mediumseagreen, mediumslateblue, mediumspringgreen, mediumturquoise, mediumvioletred, midnightblue, mintcream, mistyrose, moccasin, navajowhite, navy, oldlace, olive, olivedrab, orange, orangered, orchid, palegoldenrod, palegreen, paleturquoise, palevioletred, papayawhip, peachpuff, peru, pink, plum, powderblue, purple, red, rosybrown, royalblue, saddlebrown, salmon, sandybrown, seagreen, seashell, sienna, silver, skyblue, slateblue, slategray, slategrey, snow, springgreen, steelblue, tan, teal, thistle, tomato, turquoise, violet, wheat, whitesmoke, yellow, yellowgreen)

‎src/CSS/Common.purs

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -6,11 +6,13 @@
66

77
module CSS.Common where
88

9-
import CSS.Property (Prefixed(Prefixed), Value)
10-
import CSS.String (class IsString, fromString)
9+
import Prelude
10+
1111
import Data.Monoid (class Monoid)
12-
import Data.Tuple (Tuple(Tuple))
13-
import Prelude ((<>), id)
12+
import Data.Tuple (Tuple(..))
13+
14+
import CSS.Property (Prefixed(..), Value)
15+
import CSS.String (class IsString, fromString)
1416

1517
-------------------------------------------------------------------------------
1618

@@ -65,4 +67,3 @@ browsers = Prefixed
6567

6668
call :: forall s. (IsString s, Monoid s) => s -> s -> s
6769
call fn arg = fn <> fromString "(" <> arg <> fromString ")"
68-

‎src/CSS/Display.purs

Lines changed: 13 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -2,12 +2,18 @@ module CSS.Display where
22

33
import Prelude
44

5-
import CSS.Property
6-
import CSS.String
7-
import CSS.Stylesheet
5+
import Data.Generic (class Generic)
6+
7+
import CSS.Property (class Val, Value)
8+
import CSS.String (fromString)
9+
import CSS.Stylesheet (CSS, key)
810

911
newtype Position = Position Value
1012

13+
derive instance eqPosition :: Eq Position
14+
derive instance ordPosition :: Ord Position
15+
derive instance genericPosition :: Generic Position
16+
1117
instance valPosition :: Val Position where
1218
value (Position v) = v
1319

@@ -28,6 +34,10 @@ relative = Position $ fromString "relative"
2834

2935
newtype Display = Display Value
3036

37+
derive instance eqDisplay :: Eq Display
38+
derive instance ordDisplay :: Ord Display
39+
derive instance genericDisplay :: Generic Display
40+
3141
instance valDisplay :: Val Display where
3242
value (Display v) = v
3343

0 commit comments

Comments
 (0)