uni-graphs 2.2.1.1 → 2.2.1.2
raw patch · 3 files changed
+6/−6 lines, 3 filessetup-changedPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Graphs.GraphConfigure: instance Graphs.GraphConfigure.HasModifyValue option graph object => Graphs.GraphConfigure.HasModifyValue (GHC.Base.Maybe option) graph object
+ Graphs.GraphConfigure: instance Graphs.GraphConfigure.HasModifyValue option graph object => Graphs.GraphConfigure.HasModifyValue (GHC.Maybe.Maybe option) graph object
- Graphs.DisplayGraph: displayGraph :: (GraphAll dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable nodeLabel, Typeable nodeTypeLabel, Typeable arcLabel, Typeable arcTypeLabel, Graph graph) => (Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> (graph nodeLabel nodeTypeLabel arcLabel arcTypeLabel) -> graphParms -> (DisplayGraph -> NodeType -> nodeTypeLabel -> IO (nodeTypeParms Node)) -> (DisplayGraph -> ArcType -> arcTypeLabel -> IO (arcTypeParms Arc)) -> IO DisplayGraph
+ Graphs.DisplayGraph: displayGraph :: (GraphAll dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable nodeLabel, Typeable nodeTypeLabel, Typeable arcLabel, Typeable arcTypeLabel, Graph graph) => Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> graph nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> graphParms -> (DisplayGraph -> NodeType -> nodeTypeLabel -> IO (nodeTypeParms Node)) -> (DisplayGraph -> ArcType -> arcTypeLabel -> IO (arcTypeParms Arc)) -> IO DisplayGraph
- Graphs.DisplayGraph: displayGraph0 :: (GraphAll dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable nodeLabel, Typeable nodeTypeLabel, Typeable arcLabel, Typeable arcTypeLabel, Graph graph) => (Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> (graph nodeLabel nodeTypeLabel arcLabel arcTypeLabel) -> graphParms -> (DisplayGraph -> NodeType -> nodeTypeLabel -> IO (nodeTypeParms Node)) -> (DisplayGraph -> ArcType -> arcTypeLabel -> IO (arcTypeParms Arc)) -> IO (DisplayGraph, Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms)
+ Graphs.DisplayGraph: displayGraph0 :: (GraphAll dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable nodeLabel, Typeable nodeTypeLabel, Typeable arcLabel, Typeable arcTypeLabel, Graph graph) => Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> graph nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> graphParms -> (DisplayGraph -> NodeType -> nodeTypeLabel -> IO (nodeTypeParms Node)) -> (DisplayGraph -> ArcType -> arcTypeLabel -> IO (arcTypeParms Arc)) -> IO (DisplayGraph, Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms)
- Graphs.DisplayGraph: displayGraph1 :: (GraphAll dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable nodeLabel, Typeable nodeTypeLabel, Typeable arcLabel, Typeable arcTypeLabel) => (Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> (GraphConnection nodeLabel nodeTypeLabel arcLabel arcTypeLabel) -> graphParms -> (DisplayGraph -> NodeType -> nodeTypeLabel -> IO (nodeTypeParms (Node, nodeLabel))) -> (DisplayGraph -> ArcType -> arcTypeLabel -> IO (arcTypeParms (Arc, arcLabel))) -> IO (DisplayGraph, Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms)
+ Graphs.DisplayGraph: displayGraph1 :: (GraphAll dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable nodeLabel, Typeable nodeTypeLabel, Typeable arcLabel, Typeable arcTypeLabel) => Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> GraphConnection nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> graphParms -> (DisplayGraph -> NodeType -> nodeTypeLabel -> IO (nodeTypeParms (Node, nodeLabel))) -> (DisplayGraph -> ArcType -> arcTypeLabel -> IO (arcTypeParms (Arc, arcLabel))) -> IO (DisplayGraph, Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms)
- Graphs.FindCommonParents: GraphBack :: [node] -> node -> (Maybe nodeKey) -> node -> (Maybe [node]) -> GraphBack node nodeKey
+ Graphs.FindCommonParents: GraphBack :: [node] -> (node -> Maybe nodeKey) -> (node -> Maybe [node]) -> GraphBack node nodeKey
- Graphs.FindCommonParents: [getKey] :: GraphBack node nodeKey -> node -> (Maybe nodeKey)
+ Graphs.FindCommonParents: [getKey] :: GraphBack node nodeKey -> node -> Maybe nodeKey
- Graphs.FindCommonParents: [getParents] :: GraphBack node nodeKey -> node -> (Maybe [node])
+ Graphs.FindCommonParents: [getParents] :: GraphBack node nodeKey -> node -> Maybe [node]
- Graphs.GetAttributes: getArcAttributes :: (Registry String arcType) -> IO (Maybe (ArcAttributes arcType))
+ Graphs.GetAttributes: getArcAttributes :: Registry String arcType -> IO (Maybe (ArcAttributes arcType))
- Graphs.GetAttributes: getNodeAttributes :: (Registry String nodeType) -> IO (Maybe (NodeAttributes nodeType))
+ Graphs.GetAttributes: getNodeAttributes :: Registry String nodeType -> IO (Maybe (NodeAttributes nodeType))
- Graphs.Graph: GraphConnectionData :: CannedGraph nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> IO () -> Update nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> IO () -> NameSourceBranch -> GraphConnectionData nodeLabel nodeTypeLabel arcLabel arcTypeLabel
+ Graphs.Graph: GraphConnectionData :: CannedGraph nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> IO () -> (Update nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> IO ()) -> NameSourceBranch -> GraphConnectionData nodeLabel nodeTypeLabel arcLabel arcTypeLabel
- Graphs.GraphConfigure: AllowClose :: (IO Bool) -> AllowClose
+ Graphs.GraphConfigure: AllowClose :: IO Bool -> AllowClose
- Graphs.GraphConfigure: FileMenuAct :: FileMenuOption -> (Maybe (IO ())) -> FileMenuAct
+ Graphs.GraphConfigure: FileMenuAct :: FileMenuOption -> Maybe (IO ()) -> FileMenuAct
- Graphs.GraphConfigure: GlobalMenu :: (MenuPrim (Maybe String) (IO ())) -> GlobalMenu
+ Graphs.GraphConfigure: GlobalMenu :: MenuPrim (Maybe String) (IO ()) -> GlobalMenu
- Graphs.GraphConfigure: GraphGesture :: (IO ()) -> GraphGesture
+ Graphs.GraphConfigure: GraphGesture :: IO () -> GraphGesture
- Graphs.GraphConfigure: LocalMenu :: (MenuPrim (Maybe String) (value -> IO ())) -> LocalMenu value
+ Graphs.GraphConfigure: LocalMenu :: MenuPrim (Maybe String) (value -> IO ()) -> LocalMenu value
- Graphs.GraphConfigure: mapMMenuPrim :: Monad m => a -> m b -> MenuPrim c a -> m MenuPrim c b
+ Graphs.GraphConfigure: mapMMenuPrim :: Monad m => (a -> m b) -> MenuPrim c a -> m (MenuPrim c b)
- Graphs.GraphConfigure: mapMMenuPrim' :: Monad m => c -> m d -> MenuPrim c a -> m MenuPrim d a
+ Graphs.GraphConfigure: mapMMenuPrim' :: Monad m => (c -> m d) -> MenuPrim c a -> m (MenuPrim d a)
- Graphs.GraphConfigure: mapMenuPrim :: () => a -> b -> MenuPrim c a -> MenuPrim c b
+ Graphs.GraphConfigure: mapMenuPrim :: (a -> b) -> MenuPrim c a -> MenuPrim c b
- Graphs.GraphConfigure: mapMenuPrim' :: () => c -> d -> MenuPrim c a -> MenuPrim d a
+ Graphs.GraphConfigure: mapMenuPrim' :: (c -> d) -> MenuPrim c a -> MenuPrim d a
- Graphs.GraphConnection: SubGraph :: Node -> Bool -> NodeType -> Bool -> SubGraph
+ Graphs.GraphConnection: SubGraph :: (Node -> Bool) -> (NodeType -> Bool) -> SubGraph
- Graphs.GraphDisp: WrappedNode :: (node value) -> WrappedNode node
+ Graphs.GraphDisp: WrappedNode :: node value -> WrappedNode node
- Graphs.GraphDisp: deleteArc :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> arc value -> IO ()
+ Graphs.GraphDisp: deleteArc :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> arc value -> IO ()
- Graphs.GraphDisp: deleteArcPrim :: (DeleteArc graph arc, (Typeable value)) => graph -> arc value -> IO ()
+ Graphs.GraphDisp: deleteArcPrim :: (DeleteArc graph arc, Typeable value) => graph -> arc value -> IO ()
- Graphs.GraphDisp: deleteNode :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> node value -> IO ()
+ Graphs.GraphDisp: deleteNode :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> node value -> IO ()
- Graphs.GraphDisp: getArcValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> arc value -> IO value
+ Graphs.GraphDisp: getArcValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> arc value -> IO value
- Graphs.GraphDisp: getMultipleNodes :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> (Event (WrappedNode node) -> IO a) -> IO a
+ Graphs.GraphDisp: getMultipleNodes :: GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> (Event (WrappedNode node) -> IO a) -> IO a
- Graphs.GraphDisp: getNodeValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> node value -> IO value
+ Graphs.GraphDisp: getNodeValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> node value -> IO value
- Graphs.GraphDisp: newArc :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value, Typeable nodeFromValue, Typeable nodeToValue) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> arcType value -> value -> node nodeFromValue -> node nodeToValue -> IO (arc value)
+ Graphs.GraphDisp: newArc :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value, Typeable nodeFromValue, Typeable nodeToValue) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> arcType value -> value -> node nodeFromValue -> node nodeToValue -> IO (arc value)
- Graphs.GraphDisp: newArcListDrawer :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value, Typeable nodeFromValue) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> node nodeFromValue -> ListDrawer (arcType value, value, WrappedNode node) (arc value)
+ Graphs.GraphDisp: newArcListDrawer :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value, Typeable nodeFromValue) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> node nodeFromValue -> ListDrawer (arcType value, value, WrappedNode node) (arc value)
- Graphs.GraphDisp: newArcType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> arcTypeParms value -> IO (arcType value)
+ Graphs.GraphDisp: newArcType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> arcTypeParms value -> IO (arcType value)
- Graphs.GraphDisp: newGraph :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> graphParms -> IO (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms)
+ Graphs.GraphDisp: newGraph :: GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> graphParms -> IO (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms)
- Graphs.GraphDisp: newNode :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> nodeType value -> value -> IO (node value)
+ Graphs.GraphDisp: newNode :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> nodeType value -> value -> IO (node value)
- Graphs.GraphDisp: newNodeType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> nodeTypeParms value -> IO (nodeType value)
+ Graphs.GraphDisp: newNodeType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> nodeTypeParms value -> IO (nodeType value)
- Graphs.GraphDisp: redraw :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> IO ()
+ Graphs.GraphDisp: redraw :: GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> IO ()
- Graphs.GraphDisp: setArcType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> arc value -> arcType value -> IO ()
+ Graphs.GraphDisp: setArcType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> arc value -> arcType value -> IO ()
- Graphs.GraphDisp: setArcValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> arc value -> value -> IO ()
+ Graphs.GraphDisp: setArcValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> arc value -> value -> IO ()
- Graphs.GraphDisp: setNodeFocus :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> node value -> IO ()
+ Graphs.GraphDisp: setNodeFocus :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> node value -> IO ()
- Graphs.GraphDisp: setNodeType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> node value -> nodeType value -> IO ()
+ Graphs.GraphDisp: setNodeType :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> node value -> nodeType value -> IO ()
- Graphs.GraphDisp: setNodeValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => (Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> node value -> value -> IO ()
+ Graphs.GraphDisp: setNodeValue :: (GraphAll graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, Typeable value) => Graph graph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> node value -> value -> IO ()
- Graphs.GraphEditor: newGraphEditor :: (GraphAllConfig dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, HasConfigValue Shape nodeTypeParms, Graph graph) => (Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms) -> Displayable graph -> IO GraphEditor
+ Graphs.GraphEditor: newGraphEditor :: (GraphAllConfig dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms, HasConfigValue Shape nodeTypeParms, Graph graph) => Graph dispGraph graphParms node nodeType nodeTypeParms arc arcType arcTypeParms -> Displayable graph -> IO GraphEditor
- Graphs.SimpleGraph: [clientSink] :: ClientData nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> (Update nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> IO ())
+ Graphs.SimpleGraph: [clientSink] :: ClientData nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> Update nodeLabel nodeTypeLabel arcLabel arcTypeLabel -> IO ()
Files
- Graphs/PureGraphPrune.hs +1/−1
- Setup.hs +0/−2
- uni-graphs.cabal +5/−3
Graphs/PureGraphPrune.hs view
@@ -168,7 +168,7 @@ nChildren :: Ord nodeInfo => PureGraph nodeInfo arcInfo -> nodeInfo -> Int nChildren (PureGraph fm :: PureGraph nodeInfo arcInfo) nf = let- fm1 = Map.foldWithKey+ fm1 = Map.foldrWithKey (\ a nodeData fm0 -> let parents1 = parentNodes nodeData
− Setup.hs
@@ -1,2 +0,0 @@-import Distribution.Simple-main = defaultMain
uni-graphs.cabal view
@@ -1,5 +1,5 @@ name: uni-graphs-version: 2.2.1.1+version: 2.2.1.2 build-type: Simple license: LGPL license-file: LICENSE@@ -9,8 +9,8 @@ category: GUI synopsis: Graphs description: Graphs toolkit-cabal-version: >= 1.4-Tested-With: GHC==7.10.3, GHC==8.4.3+cabal-version: >= 1.10+Tested-With: GHC==8.8.4 flag debug description: add debug traces@@ -32,3 +32,5 @@ cpp-options: -DDEBUG ghc-options: -fwarn-unused-imports -fno-warn-warnings-deprecations++ default-language: Haskell2010