@@ -13,6 +13,7 @@ derive instance eqSidebarSide :: Eq SidebarSide
13type Props :: forall k. (Type -> k) -> Row k -> Row k
13type Props :: forall k. (Type -> k) -> Row k -> Row k
14type Props f r =
14type Props f r =
15 ( css ∷ f Style
15 ( css ∷ f Style
16+ , sideBarCss :: f Style
16 , space ∷ f String
17 , space ∷ f String
17 , side ∷ f SidebarSide
18 , side ∷ f SidebarSide
18 , sideWidth ∷ f String
19 , sideWidth ∷ f String
@@ -57,6 +58,7 @@ sidebar props = styles <>? props.css
57 , flexBasis: props.sideWidth # foldMap str
58 , flexBasis: props.sideWidth # foldMap str
59 <> foldMap (nest <<< { flexBasis: _ } <<< str) props.sideWidth
60 <> foldMap (nest <<< { flexBasis: _ } <<< str) props.sideWidth
61+ <> foldMap nested props.sideBarCss
61 <> case side of
63 <> case side of
62 SidebarLeft -> css { "& > * > :last-child": nonSidebarStyle }
64 SidebarLeft -> css { "& > * > :last-child": nonSidebarStyle }