Fix example in README

Author: fsoikin

README.md

@@ -19,7 +19,7 @@ import Test.Spec.Reporter.Xunit (xunitReporter)
 import Test.Spec.Runner (defaultConfig, runSpec)
 
 main =
-  runSpec defaultConfig [ xunitReporter { indentation: 2, outputPath: "output/test.xml" } ] do
+  runSpec [ xunitReporter { indentation: 2, outputPath: "output/test.xml" } ] do
     ...
 ```
 

test/Test/Spec/Reporter/XunitSpec.purs

@@ -2,15 +2,13 @@ module Test.Spec.Reporter.XunitSpec where
 
 import Prelude
 
-import Data.Identity (Identity(..))
-import Data.Newtype (un)
 import Node.Encoding (Encoding(UTF8))
 import Node.FS.Aff (readTextFile, unlink)
 import Test.Spec (Spec, it, describe)
 import Test.Spec.Assertions (fail)
 import Test.Spec.Assertions.String (shouldContain)
 import Test.Spec.Reporter.Xunit (defaultOptions, xunitReporter)
-import Test.Spec.Runner (defaultConfig, runSpecT)
+import Test.Spec.Runner (defaultConfig, runSpec')
 
 xunitSpec :: Spec Unit
 xunitSpec = do
@@ -34,7 +32,7 @@ xunitSpec = do
     runXunit spec = do
       let config = defaultConfig { exit = false }
           path = "output/test.tmp.xml"
-      void $ un Identity $ runSpecT config [xunitReporter $ defaultOptions { outputPath = path }] spec
+      runSpec' config [xunitReporter $ defaultOptions { outputPath = path }] spec
       contents <- readTextFile UTF8 path
       unlink path
       pure contents