refactor to prevent breaking change

Author: kimispencer

docs/Examples/List.example.purs

@@ -8,7 +8,7 @@ import Lumi.Components.Color (colorNames)
 import Lumi.Components.Column (columnSelfStretch, column_)
 import Lumi.Components.Images (avatar, avatar_)
 import Lumi.Components.Link (link, defaults)
-import Lumi.Components.List (list, structuredColumnList, defaultList, compactList)
+import Lumi.Components.List (list, listComponent, borderlessList, compactList, defaultList, structuredColumnList)
 import Lumi.Components.Lockup (lockup)
 import Lumi.Components.Row (row_)
 import Lumi.Components.Size (Size(..))
@@ -29,12 +29,11 @@ docs =
                 }
             ]
 
-    , h2_ "Basic List w/ no Borders"
+    , h2_ "Borderless List"
     , example
         $ columnSelfStretch
-            [ list defaultList
+            [ listComponent borderlessList
                 { rows = simpleListData
-                , borders = false
                 }
             ]
 

src/Lumi/Components/List.purs

@@ -11,18 +11,22 @@ import Lumi.Components.Size (Size(..))
 import React.Basic (Component, JSX, createComponent, element, makeStateless)
 import React.Basic.DOM as R
 
-type ListProps =
+type CommonListProps rest =
   { size :: Maybe Size
   , rightAligned :: Boolean
   , rows :: Array (Array JSX)
-  , borders :: Boolean
+  | rest
   }
 
+type ListProps = CommonListProps
+  ( borders :: Boolean
+  )
+
 component :: Component ListProps
 component = createComponent "List"
 
-list :: ListProps -> JSX
-list = makeStateless component $ lumiList <<< mapProps
+listComponent :: ListProps -> JSX
+listComponent = makeStateless component $ lumiList <<< mapProps
   where
     mapProps props =
       { className: "lumi"
@@ -45,20 +49,35 @@ list = makeStateless component $ lumiList <<< mapProps
     lumiListRow = element (R.unsafeCreateDOMComponent "lumi-list-row")
     lumiListRowCell = element (R.unsafeCreateDOMComponent "lumi-list-row-cell")
 
-defaultList :: ListProps
+list :: CommonListProps () -> JSX
+list props =
+  listComponent
+    { size: props.size
+    , rightAligned: props.rightAligned
+    , rows: props.rows
+    , borders: true
+    }
+
+defaultList :: CommonListProps ()
 defaultList =
   { size: Just $ Medium
   , rightAligned: false
   , rows: []
-  , borders: true
   }
 
-compactList :: ListProps
+compactList :: CommonListProps ()
 compactList =
   { size: Just $ Small
   , rightAligned: false
   , rows: []
-  , borders: true
+  }
+
+borderlessList :: ListProps
+borderlessList =
+  { size: Just $ Medium
+  , rightAligned: false
+  , rows: []
+  , borders: false
   }
 
 type StructuredColumnListProps row =
@@ -80,7 +99,6 @@ structuredColumnList = makeStateless structuredColumnListComponent render
         { size: Just $ Large
         , rightAligned: props.rightAligned
         , rows: map renderRow props.rows
-        , borders: true
         }
       where
         renderRow row =