Commit afec4c08 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

Small syntax fixes

parent 5ff4dc03
...@@ -131,7 +131,7 @@ mkToolBox = { feature: { dataView : { show: true, readOnly : false, title : " ...@@ -131,7 +131,7 @@ mkToolBox = { feature: { dataView : { show: true, readOnly : false, title : "
--------------------------------------- ---------------------------------------
type ToolBox = { feature :: Feature  type ToolBox = { feature :: Feature
, orient :: String} , orient :: String}
type Feature = { dataView :: DataView type Feature = { dataView :: DataView
, saveAsImage :: Save , saveAsImage :: Save
......
...@@ -79,7 +79,7 @@ loadedAnnuaireSpec :: Spec {} Props Void ...@@ -79,7 +79,7 @@ loadedAnnuaireSpec :: Spec {} Props Void
loadedAnnuaireSpec = simpleSpec defaultPerformAction render loadedAnnuaireSpec = simpleSpec defaultPerformAction render
where where
render :: Render {} Props Void render :: Render {} Props Void
render _ {path: nodeId, loaded: annuaireInfo@AnnuaireInfo {name, date}} _ _ = render _ {path: nodeId, loaded: annuaireInfo@(AnnuaireInfo {name, date})} _ _ =
T.renderTableHeaderLayout T.renderTableHeaderLayout
{ title: name { title: name
, desc: name , desc: name
......
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