case n of
NodeUser -> 1
NodeFolder -> 2
+ NodeFolderPrivate -> 20
+ NodeFolderShared -> 21
+ NodeTeam -> 210
+ NodeFolderPublic -> 22
NodeCorpusV3 -> 3
NodeCorpus -> 30
NodeAnnuaire -> 31
---- Lists
NodeList -> 5
- NodeListModel -> 10
+ NodeListCooc -> 50
+ NodeListModel -> 52
---- Scores
-- NodeOccurrences -> 10
NodeGraph -> 9
NodePhylo -> 90
- NodeDashboard -> 7
- NodeChart -> 51
+ NodeChart -> 7
+ NodeDashboard -> 71
NodeNoteBook -> 88
-- Cooccurrences -> 9
fromNodeTypeId :: NodeTypeId -> NodeType
fromNodeTypeId tId = fromMaybe (panic $ pack $ "Type Id " <> show tId <> " does not exist")
- (lookup tId nodeTypeInv)
+ (lookup tId nodeTypeInv)
+