Commit 95a7e07f authored by James Laver's avatar James Laver

Move search box back to top

parent 1ea64cbf
...@@ -76,8 +76,7 @@ layout0 :: Spec AppState {} Action ...@@ -76,8 +76,7 @@ layout0 :: Spec AppState {} Action
-> Spec AppState {} Action -> Spec AppState {} Action
layout0 layout = layout0 layout =
fold fold
[ searchBar [ outerLayout
, outerLayout
, layoutFooter , layoutFooter
] ]
where where
...@@ -95,9 +94,7 @@ layout0 layout = ...@@ -95,9 +94,7 @@ layout0 layout =
, rs bs , rs bs
] ]
ls = over _render \render d p s c -> [ ls = over _render \render d p s c -> [
div [ className "col-md-2", style {paddingTop: "60px"} ] div [ className "col-md-2", style {paddingTop: "60px"} ] $ render d p s c
$ [ R'.scuff (SB.searchBar SB.defaultProps) ]
<> (render d p s c)
] ]
rs = over _render \render d p s c -> [ rs = over _render \render d p s c -> [
...@@ -127,8 +124,7 @@ layout1 :: Spec AppState {} Action ...@@ -127,8 +124,7 @@ layout1 :: Spec AppState {} Action
-> Spec AppState {} Action -> Spec AppState {} Action
layout1 layout = layout1 layout =
fold fold
[ searchBar [ layout
, layout
-- , outerLayout -- , outerLayout
, layoutFooter , layoutFooter
] ]
...@@ -182,6 +178,7 @@ searchBar = simpleSpec defaultPerformAction render ...@@ -182,6 +178,7 @@ searchBar = simpleSpec defaultPerformAction render
, div [ className "collapse navbar-collapse" , div [ className "collapse navbar-collapse"
] ]
$ [ divDropdownLeft ] $ [ divDropdownLeft ]
<> [ R'.scuff (SB.searchBar SB.defaultProps) ]
<> [ divDropdownRight d s ] <> [ divDropdownRight d s ]
] ]
] ]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment