File tree 4 files changed +37
-46
lines changed 4 files changed +37
-46
lines changed Original file line number Diff line number Diff line change @@ -116,44 +116,41 @@ let additions =
116
116
}
117
117
-------------------------------
118
118
-}
119
-
120
-
121
119
let upstream =
122
- https:// github. com/ purescript/ package- sets/ releases/ download/ psc- 0.13 . 2 - 20190804 / packages. dhall sha256: 2230 fc547841b54bca815eb0058414aa03ed7b675042f8b3dda644e1952824e5
120
+ https:// github. com/ purescript/ package- sets/ releases/ download/ psc- 0.14 . 0 - 20210324 / packages. dhall sha256: b4564d575da6aed1c042ca7936da97c8b7a29473b63f4515f09bb95fae8dddab
123
121
124
122
let overrides = {= }
125
123
126
- let additions =
127
- { dotlang =
128
- { dependencies =
129
- [ " colors "
130
- , " console"
131
- , " effect "
132
- , " generics-rep "
133
- , " prelude "
134
- , " psci-support "
135
- , " strings "
136
- , " test-unit "
137
- ]
138
- , repo = " https://github.com/csicar/purescript-dotlang.git "
139
- , version = " v2.0.0 "
140
- }
141
- , graphviz =
142
- { dependencies =
143
- [ " aff "
144
- , " console "
145
- , " dotlang "
146
- , " effect "
147
- , " functions "
148
- , " node-fs "
149
- , " node-fs-aff "
150
- , " prelude "
151
- , " psci-support "
152
- , " test-unit "
153
- ]
154
- , repo = " https://github.com/csicar/purescript-graphviz "
155
- , version = " master "
124
+ let additions =
125
+ { graphviz =
126
+ { dependencies =
127
+ [ " aff "
128
+ , " console"
129
+ , " dotlang "
130
+ , " effect "
131
+ , " functions "
132
+ , " node-fs "
133
+ , " node-fs-aff "
134
+ , " prelude "
135
+ , " psci-support "
136
+ , " test-unit "
137
+ ]
138
+ , repo = " https://github.com/csicar/purescript-graphviz "
139
+ , version = " v1.3.0 "
140
+ },
141
+ dotlang =
142
+ { dependencies =
143
+ [ " colors "
144
+ , " console "
145
+ , " effect "
146
+ , " prelude "
147
+ , " psci-support "
148
+ , " strings "
149
+ , " test-unit "
150
+ ]
151
+ , repo = " https://github.com/csicar/purescript-dotlang.git "
152
+ , version = " master "
153
+ }
156
154
}
157
- }
158
155
159
156
in upstream // overrides // additions
Original file line number Diff line number Diff line change @@ -7,7 +7,6 @@ You can edit this file as you like.
7
7
[ " console"
8
8
, " dotlang"
9
9
, " effect"
10
- , " generics-rep"
11
10
, " graphviz"
12
11
, " prelude"
13
12
, " psci-support"
Original file line number Diff line number Diff line change 1
1
module Test.Example where
2
2
3
3
import Data.DotLang (class GraphRepr , toGraph )
4
- import Data.DotLang.Class (toText )
5
4
import Data.Function (($))
6
5
import Data.Generic.Rep (class Generic )
7
6
import Data.GenericGraph (class Edges , genericEdges , genericToGraph )
8
- import Graphics.Graphviz (renderToText , Engine (..), Format (..))
7
+ import Graphics.Graphviz (Engine (..), renderToSvg )
8
+
9
9
10
10
data Tree' a = Leaf' | Node' (Tree' a ) a (Tree' a )
11
11
@@ -14,5 +14,6 @@ derive instance treeGeneric :: Generic (Tree' a) _
14
14
instance treeEdges :: Edges a => Edges (Tree' a ) where edges x = genericEdges x
15
15
instance treeDotRepr :: Edges a => GraphRepr (Tree' a ) where toGraph = genericToGraph
16
16
17
- example = renderToText Dot Svg $ toText $ toGraph $
17
+ example :: String
18
+ example = renderToSvg Dot $ toGraph $
18
19
Node' Leaf' 3 (Node' (Node' Leaf' 5 Leaf' ) 4 Leaf' )
Original file line number Diff line number Diff line change @@ -6,18 +6,12 @@ import Data.DotLang (class GraphRepr, toGraph)
6
6
import Data.DotLang.Class (toText )
7
7
import Data.Foldable (foldr )
8
8
import Data.Generic.Rep (class Generic )
9
- import Data.Generic.Rep.Show (genericShow )
10
9
import Data.GenericGraph (class Edges , genericEdges , genericToGraph )
11
- import Data.List (List (..)) as L
10
+ import Data.List (List (..)) as L
11
+ import Data.Show.Generic (genericShow )
12
12
import Effect (Effect )
13
- import Effect.Aff (Aff )
14
- import Effect.Aff.Class (liftAff )
15
- import Effect.Class (liftEffect )
16
- import Effect.Class.Console (logShow )
17
- import Test.Example (example )
18
13
import Test.Unit (suite , test )
19
14
import Test.Unit.Assert (equal )
20
- import Test.Unit.Console (log )
21
15
import Test.Unit.Main (runTest )
22
16
23
17
-- Simple
You can’t perform that action at this time.
0 commit comments