Remove purescript-naturals dependency (#9)

Author: Colin Wahl

bower.json

@@ -15,7 +15,6 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-naturals": "master",
     "purescript-web-dom": "master"
   },
   "devDependencies": {

src/Web/DOM/XPath.purs

@@ -6,7 +6,6 @@ import Data.Array                             (catMaybes, range)
 import Data.Int                               (round, toNumber)
 import Data.Maybe                             (Maybe(..))
 import Data.Nullable                          (Nullable, toMaybe, toNullable)
-import Data.Natural                           (Natural, intToNat, natToInt)
 import Data.Traversable                       (sequence)
 import Effect                                 (Effect)
 import Web.DOM.Document                       (Document, documentElement)
@@ -97,18 +96,18 @@ singleNodeValue = map toMaybe <<< singleNodeValueInternal
 foreign import invalidIteratorState :: XPathResult -> Boolean
 
 foreign import snapshotLengthInternal :: XPathResult -> Effect Number
-snapshotLength :: XPathResult -> Effect Natural
-snapshotLength = map (intToNat <<< round) <<< snapshotLengthInternal
+snapshotLength :: XPathResult -> Effect Int
+snapshotLength = map round <<< snapshotLengthInternal
 
 foreign import iterateNextInternal :: XPathResult -> Effect (Nullable Node)
 iterateNext :: XPathResult -> Effect (Maybe Node)
 iterateNext = map toMaybe <<< iterateNextInternal
 
 foreign import snapshotItemInternal ::
   XPathResult -> Number -> Effect (Nullable Node)
-snapshotItem :: XPathResult -> Natural -> Effect (Maybe Node)
+snapshotItem :: XPathResult -> Int -> Effect (Maybe Node)
 snapshotItem xpres ix = map toMaybe $
-  snapshotItemInternal xpres (toNumber $ natToInt $ ix)
+  snapshotItemInternal xpres (toNumber ix)
 
 -- | High level wrapper around [snapshotItem](#v:snapshotItem)
 -- | and [snapshotLength](#v:snapshotLength)
@@ -120,14 +119,14 @@ snapshot xpres = case snapMay of
   where
     snapTypMay = RT.res2SnapType $ resultType xpres
     snapMay = map snapshotInternal snapTypMay
-    nodeAtIdx :: Natural -> Effect (Maybe Node)
+    nodeAtIdx :: Int -> Effect (Maybe Node)
     nodeAtIdx = snapshotItem xpres
     snapshotInternal :: RT.SnapshotType ->  Effect (Array Node)
     snapshotInternal snapType = do
       nNodes <- snapshotLength xpres
-      nNodesInt <- pure $ natToInt nNodes
+      nNodesInt <- pure nNodes
       -- nodeArray <- pure $ replicate nNodesInt _emptyNode
-      indices <- pure $ map intToNat $ range 0 (nNodesInt - 1)
+      indices <- pure $ range 0 (nNodesInt - 1)
       nodeArray <- sequence $ map nodeAtIdx indices
       -- TODO: currently this is likely slow due to not using state
       pure $ catMaybes nodeArray

test/Main.purs

@@ -8,7 +8,6 @@ import Data.Array                        ((!!), length)
 import Data.Either                       (Either, fromRight')
 import Data.Int                          (toNumber)
 import Data.Maybe                        (Maybe(..), fromJust, fromMaybe)
-import Data.Natural                      (intToNat)
 import Effect                            (Effect)
 import Effect.Aff                        (launchAff_)
 import Effect.Class                      (class MonadEffect, liftEffect)
@@ -155,7 +154,7 @@ main { browser } = launchAff_ $ flip runReaderT "" do
         catalogDoc
       cdsSnapLen <- liftEffect $ XP.snapshotLength cdsSnapRes
       tlog $ "got " <> (show cdsSnapLen) <> " CDs"
-      shouldEqual (intToNat 26) cdsSnapLen
+      shouldEqual 26 cdsSnapLen
       cdsSnap <- liftEffect $ XP.snapshot cdsSnapRes
       cdYearEval <- pure $ mkCdYear catalogDoc
       shouldEqual 26 (length cdsSnap)
@@ -208,7 +207,7 @@ main { browser } = launchAff_ $ flip runReaderT "" do
         atomFeedDoc
       atomEntriesLen <- liftEffect $ XP.snapshotLength atomEntriesRes
       tlog $ "got " <> (show atomEntriesLen) <> " atom entries"
-      shouldEqual (intToNat 3) atomEntriesLen
+      shouldEqual 3 atomEntriesLen
 
     test "metajelo.xml" do
       domParser <- liftEffect $ makeDOMParser