From b262d59e6c7f12ca0a8d757ef5aca4edd323f30a Mon Sep 17 00:00:00 2001
From: Jan Vincent Liwanag <jvliwanag@Dianas-MacBook-Air.local>
Date: Wed, 31 Mar 2021 22:21:58 +0800
Subject: [PATCH] Fix warnings in Basic example

---
 examples/basic/src/Basic.purs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/examples/basic/src/Basic.purs b/examples/basic/src/Basic.purs
index 801b845..d9562f3 100644
--- a/examples/basic/src/Basic.purs
+++ b/examples/basic/src/Basic.purs
@@ -15,12 +15,12 @@ border :: forall r. { borderSize :: Size, borderColor :: String | r } -> E.Style
 border { borderSize, borderColor } =
   E.css
     { borderWidth:
-      E.int case borderSize of
+      E.px case borderSize of
         S -> 1
         M -> 2
         L -> 4
     , borderColor: E.str borderColor
-    , borderRadius: E.int 4
+    , borderRadius: E.px 4
     , borderStyle: E.str "solid"
     , padding: E.str "16px 24px"
     }
@@ -30,15 +30,15 @@ text size =
   E.css
     { fontFamily: E.str "sans-serif"
     , fontSize:
-      E.int case size of
+      E.px case size of
         S -> 14
         M -> 18
         L -> 32
     , fontWeight:
-      E.int case size of
-        S -> 400
-        M -> 500
-        L -> 800
+      E.str case size of
+        S -> "400"
+        M -> "500"
+        L -> "800"
     }
 
 type SlatProps
@@ -93,8 +93,8 @@ mkEx = do
                 , css =
                   E.merge
                     [ E.css
-                        { padding: E.int 4
-                        , maxWidth: E.int 200
+                        { padding: E.px 4
+                        , maxWidth: E.px 200
                         }
                     , text S
                     ]