Move ObjectTree to TreeMenu in its own Spago module 'halogen-tree-menu'. #166 (#203)

Author: epost

halogen-tree-menu/.gitignore

@@ -0,0 +1,10 @@
+/bower_components/
+/node_modules/
+/.pulp-cache/
+/output/
+/generated-docs/
+/.psc-package/
+/.psc*
+/.purs*
+/.psa*
+/.spago

halogen-tree-menu/packages.dhall

@@ -0,0 +1,11 @@
+let mkPackage =
+      https://raw.githubusercontent.com/purescript/package-sets/psc-0.12.5-20190508/src/mkPackage.dhall sha256:0b197efa1d397ace6eb46b243ff2d73a3da5638d8d0ac8473e8e4a8fc528cf57
+
+let upstream =
+      https://raw.githubusercontent.com/purescript/package-sets/psc-0.12.5-20190508/src/packages.dhall sha256:8ef3a6d6d123e05933997426da68ef07289e1cbbdd2a844b5d10c9159deef65a
+
+let overrides = {=}
+
+let additions = {=}
+
+in  upstream // overrides // additions

halogen-tree-menu/spago.dhall

@@ -0,0 +1,7 @@
+{ name =
+	"halogen-tree-menu"
+, dependencies =
+	[ "halogen", "psci-support" ]
+, packages =
+	./packages.dhall
+}

studio/src/View/Studio/ObjectTree.purs renamed to halogen-tree-menu/src/TreeMenu.purs

@@ -1,4 +1,4 @@
-module View.Studio.ObjectTree where
+module TreeMenu where
 
 import Prelude hiding (div)
 import Effect.Aff.Class (class MonadAff)

studio/packages.dhall

@@ -137,6 +137,11 @@ let additions =
 		]
         "https://github.com/statebox/purescript-halogen-svg.git"
         "master"
+  , halogen-tree-menu =
+      mkPackage
+        (../halogen-tree-menu/spago.dhall).dependencies
+        "../halogen-tree-menu"
+        "development"
   }
 
 in  upstream // overrides // additions

studio/spago.dhall

@@ -10,6 +10,7 @@
 	, "group"
 	, "halogen"
 	, "halogen-svg"
+	, "halogen-tree-menu"
 	, "prelude"
 	, "stbx-core"
 	, "stbx-client-rest"

studio/src/View/Studio.purs

@@ -41,6 +41,8 @@ import Halogen.HTML.Properties as HP
 import Halogen.HTML.Properties (classes, src, href, placeholder)
 import Halogen.HTML.Properties.ARIA as ARIA
 import Record as Record
+import TreeMenu as ObjectTree
+import TreeMenu (mkItem, MenuTree)
 
 import Data.Diagram.FromNLL as FromNLL
 import Data.Diagram.FromNLL (ErrDiagramEncoding)
@@ -63,8 +65,6 @@ import View.Petrinet.PetrinetEditor as PetrinetEditor
 import View.Petrinet.Model as PetrinetEditor
 import View.Petrinet.Model (PID, TID, NetInfo, NetInfoWithTypesAndRoles, QueryF(..), Msg(NetUpdated))
 import View.Petrinet.Model.NLL as NLL
-import View.Studio.ObjectTree as ObjectTree
-import View.Studio.ObjectTree (mkItem, MenuTree)
 import View.Studio.Route (Route, RouteF(..), ResolvedRouteF(..), NetName, DiagramName, NodeIdent(..), NamespaceInfo(..))
 import View.Typedefs.TypedefsEditor as TypedefsEditor