Commit 5001f21c authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[version] small cpt refactoring

parent f7253342
...@@ -136,7 +136,7 @@ nodeMainSpanCpt = here.component "nodeMainSpan" cpt ...@@ -136,7 +136,7 @@ nodeMainSpanCpt = here.component "nodeMainSpan" cpt
) currentTasks' ) currentTasks'
) )
, if nodeType == GT.NodeUser , if nodeType == GT.NodeUser
then GV.versionView {session} then GV.versionView { session } []
else H.div {} [] else H.div {} []
, if showBox then , if showBox then
......
...@@ -31,8 +31,8 @@ type VersionProps = ...@@ -31,8 +31,8 @@ type VersionProps =
session :: Sessions.Session session :: Sessions.Session
) )
versionView :: Record VersionProps -> R.Element versionView :: R2.Component VersionProps
versionView props = R.createElement versionCpt props [] versionView = R.createElement versionCpt
versionCpt :: R.Component VersionProps versionCpt :: R.Component VersionProps
versionCpt = here.component "version" cpt versionCpt = here.component "version" cpt
......
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