Commit e7177b6b authored by Alexandre Delanoë's avatar Alexandre Delanoë

[TagCloud] TagCanvas upgrade

parent 34849bd0
...@@ -68,7 +68,7 @@ cleanupSigma sigma context = traverse_ kill (readSigma sigma) ...@@ -68,7 +68,7 @@ cleanupSigma sigma context = traverse_ kill (readSigma sigma)
emptyOut = writeSigma sigma Nothing *> R.setRef sigma.cleanup Seq.empty emptyOut = writeSigma sigma Nothing *> R.setRef sigma.cleanup Seq.empty
report = either (log2 errorMsg) (\_ -> log successMsg) report = either (log2 errorMsg) (\_ -> log successMsg)
prefix = "[" <> context <> "] " prefix = "[" <> context <> "] "
errorMsg = prefix <> "Error killing sigma:" errorMsg = prefix <> "Error killing sigma:"
successMsg = prefix <> "Killed sigma" successMsg = prefix <> "Killed sigma"
refreshData :: forall n e. Sigma.Sigma -> Sigma.Graph n e -> Effect Unit refreshData :: forall n e. Sigma.Sigma -> Sigma.Graph n e -> Effect Unit
...@@ -80,11 +80,11 @@ refreshData sigma graph ...@@ -80,11 +80,11 @@ refreshData sigma graph
>>= either (log2 errorMsg) refresh >>= either (log2 errorMsg) refresh
where where
sigmaGraph = Sigma.graph sigma sigmaGraph = Sigma.graph sigma
refresh _ = log refreshingMsg *> Sigma.refresh sigma refresh _ = log refreshingMsg *> Sigma.refresh sigma
clearingMsg = "[refreshData] Clearing existing graph data" clearingMsg = "[refreshData] Clearing existing graph data"
readingMsg = "[refreshData] Reading graph data" readingMsg = "[refreshData] Reading graph data"
refreshingMsg = "[refreshData] Refreshing graph" refreshingMsg = "[refreshData] Refreshing graph"
errorMsg = "[refreshData] Error reading graph data:" errorMsg = "[refreshData] Error reading graph data:"
sigmafy :: forall n e. ST.Graph n e -> Sigma.Graph n e sigmafy :: forall n e. ST.Graph n e -> Sigma.Graph n e
sigmafy (ST.Graph g) = {nodes,edges} sigmafy (ST.Graph g) = {nodes,edges}
......
...@@ -86,7 +86,7 @@ type CameraProps = ...@@ -86,7 +86,7 @@ type CameraProps =
, angle :: Number , angle :: Number
) )
foreign import data SigmaInstance' :: # Type foreign import data SigmaInstance' :: # Type
foreign import data CameraInstance' :: # Type foreign import data CameraInstance' :: # Type
type SigmaInstance = { | SigmaInstance' } type SigmaInstance = { | SigmaInstance' }
type CameraInstance = { | CameraInstance' } type CameraInstance = { | CameraInstance' }
......
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