@@ -13,6 +13,7 @@ derive instance eqSidebarSide :: Eq SidebarSide
1313type Props :: forall k. (Type -> k) -> Row k -> Row k
1414type Props f r =
1515 ( css ∷ f Style
16+ , sideBarCss :: f Style
1617 , space ∷ f String
1718 , side ∷ f SidebarSide
1819 , sideWidth ∷ f String
@@ -57,6 +58,7 @@ sidebar props = styles <>? props.css
5758 , flexBasis: props.sideWidth # foldMap str
5859 }
5960 <> foldMap (nest <<< { flexBasis: _ } <<< str) props.sideWidth
61+ <> foldMap nested props.sideBarCss
6062 }
6163 <> case side of
6264 SidebarLeft -> css { "& > * > :last-child": nonSidebarStyle }