Commit 6c14392e authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge branch 'dev' into dev-merge

parents 6ce3adfd 82cbb0f9
...@@ -56,8 +56,8 @@ mkNodeWithParent NodeFrameWrite i u n = ...@@ -56,8 +56,8 @@ mkNodeWithParent NodeFrameWrite i u n =
mkNodeWithParent NodeFrameCalc i u n = mkNodeWithParent NodeFrameCalc i u n =
mkNodeWithParent_ConfigureHyperdata NodeFrameCalc i u n mkNodeWithParent_ConfigureHyperdata NodeFrameCalc i u n
mkNodeWithParent NodeFrameCode i u n = mkNodeWithParent NodeFrameNotebook i u n =
mkNodeWithParent_ConfigureHyperdata NodeFrameCode i u n mkNodeWithParent_ConfigureHyperdata NodeFrameNotebook i u n
...@@ -78,8 +78,8 @@ mkNodeWithParent_ConfigureHyperdata NodeFrameWrite (Just i) uId name = ...@@ -78,8 +78,8 @@ mkNodeWithParent_ConfigureHyperdata NodeFrameWrite (Just i) uId name =
mkNodeWithParent_ConfigureHyperdata NodeFrameCalc (Just i) uId name = mkNodeWithParent_ConfigureHyperdata NodeFrameCalc (Just i) uId name =
mkNodeWithParent_ConfigureHyperdata' NodeFrameCalc (Just i) uId name mkNodeWithParent_ConfigureHyperdata' NodeFrameCalc (Just i) uId name
mkNodeWithParent_ConfigureHyperdata NodeFrameCode (Just i) uId name = mkNodeWithParent_ConfigureHyperdata NodeFrameNotebook (Just i) uId name =
insertNode NodeFrameCode (Just "Code") (Just $ DefaultFrameCode $ HyperdataFrame "code" name) i uId insertNode NodeFrameNotebook (Just "Notebook") (Just $ DefaultFrameCode $ HyperdataFrame "Notebook" name) i uId
mkNodeWithParent_ConfigureHyperdata _ _ _ _ = nodeError NotImplYet mkNodeWithParent_ConfigureHyperdata _ _ _ _ = nodeError NotImplYet
......
...@@ -70,7 +70,7 @@ nodeTypeId n = ...@@ -70,7 +70,7 @@ nodeTypeId n =
NodeFrameWrite -> 991 NodeFrameWrite -> 991
NodeFrameCalc -> 992 NodeFrameCalc -> 992
NodeFrameCode -> 993 NodeFrameNotebook -> 993
-- Cooccurrences -> 9 -- Cooccurrences -> 9
-- --
......
...@@ -115,6 +115,6 @@ defaultHyperdata NodeDashboard = DefaultDashboard defaultHyperdataDashboard ...@@ -115,6 +115,6 @@ defaultHyperdata NodeDashboard = DefaultDashboard defaultHyperdataDashboard
defaultHyperdata NodeFrameWrite = DefaultFrameWrite defaultHyperdataFrame defaultHyperdata NodeFrameWrite = DefaultFrameWrite defaultHyperdataFrame
defaultHyperdata NodeFrameCalc = DefaultFrameCalc defaultHyperdataFrame defaultHyperdata NodeFrameCalc = DefaultFrameCalc defaultHyperdataFrame
defaultHyperdata NodeFrameCode = DefaultFrameCalc defaultHyperdataFrame defaultHyperdata NodeFrameNotebook = DefaultFrameCalc defaultHyperdataFrame
defaultHyperdata NodeFile = DefaultFile defaultHyperdataFile defaultHyperdata NodeFile = DefaultFile defaultHyperdataFile
...@@ -257,7 +257,7 @@ data NodeType = NodeUser ...@@ -257,7 +257,7 @@ data NodeType = NodeUser
-} -}
-- Optional Nodes -- Optional Nodes
| NodeFrameWrite | NodeFrameCalc | NodeFrameCode | NodeFrameWrite | NodeFrameCalc | NodeFrameNotebook
| NodeFile | NodeFile
deriving (Show, Read, Eq, Generic, Bounded, Enum) deriving (Show, Read, Eq, Generic, Bounded, Enum)
...@@ -292,7 +292,7 @@ defaultName NodePhylo = "Phylo" ...@@ -292,7 +292,7 @@ defaultName NodePhylo = "Phylo"
defaultName NodeFrameWrite = "Frame Write" defaultName NodeFrameWrite = "Frame Write"
defaultName NodeFrameCalc = "Frame Calc" defaultName NodeFrameCalc = "Frame Calc"
defaultName NodeFrameCode = "Frame Code" defaultName NodeFrameNotebook = "Frame Code"
defaultName NodeFile = "File" defaultName NodeFile = "File"
......
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