@@ -8,11 +8,12 @@ import Data.Maybe (Maybe(..), fromJust)
88import Data.Tree (Tree, mkTree, scanTree)
99import Data.Tree.Zipper (down, findDownWhere, findFromRoot, findUp, flattenLocDepthFirst, fromTree, insertAfter, modifyValue, next, toTree, value, firstChild, lastChild)
1010import Effect (Effect)
11+import Effect.Aff (launchAff_)
1112import Partial.Unsafe (unsafePartial)
1213import Test.Spec (describe, it)
1314import Test.Spec.Assertions (shouldEqual)
1415import Test.Spec.Reporter (consoleReporter)
15−import Test.Spec.Runner (run)
16+import Test.Spec.Runner (runSpec)
1617
1718sampleTree :: Tree Int
1819sampleTree =
@@ -29,7 +30,7 @@ sampleTree =
2930 : Nil
3031
3132main :: Effect Unit
32−main = run [consoleReporter] do
33+main = launchAff_ $ runSpec [consoleReporter] do
3334 describe "Tree" do
3435
3536 it "mkTree" do