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