Commit 0df64011 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[Config] fix for Maybe Order By in TabPostQuery

parent a934950a
...@@ -142,7 +142,7 @@ showTabType' (TabPairing t) = show t ...@@ -142,7 +142,7 @@ showTabType' (TabPairing t) = show t
data TabPostQuery = TabPostQuery { data TabPostQuery = TabPostQuery {
offset :: Int offset :: Int
, limit :: Int , limit :: Int
, orderBy :: Maybe OrderBy , orderBy :: OrderBy
, tabType :: TabType , tabType :: TabType
, query :: String , query :: String
} }
......
...@@ -419,7 +419,7 @@ specOld = fold [treespec treeSpec, graphspec $ simpleSpec performAction render'] ...@@ -419,7 +419,7 @@ specOld = fold [treespec treeSpec, graphspec $ simpleSpec performAction render']
Nothing -> Nothing ->
simpleSpec defaultPerformAction defaultRender simpleSpec defaultPerformAction defaultRender
Just treeId -> Just treeId ->
(cmapProps (const {root: treeId, mCurrentRoute: Nothing}) (noState Tree.treeview)) cmapProps (const {root: treeId, mCurrentRoute: Nothing}) $ noState $ Tree.treeview
render' :: Render State {} Action render' :: Render State {} Action
......
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