Add toInt

Author: radrow

src/Data/BigInt.purs

@@ -24,13 +24,15 @@ module Data.BigInt
   , shr
   , quot
   , rem
+  , toInt
   , toNumber
   ) where
 
 import Prelude
 
 import Data.Array.NonEmpty (NonEmptyArray)
 import Data.Int (floor)
+import Data.Int as Int
 import Data.Maybe (Maybe(..), fromJust)
 import Data.String.NonEmpty (NonEmptyString)
 import Data.String.NonEmpty as NES
@@ -56,6 +58,9 @@ foreign import fromBaseImpl
 -- | Convert an integer to a BigInt.
 foreign import fromInt :: Int -> BigInt
 
+toInt :: BigInt -> Maybe Int
+toInt = toNumber >>> Int.fromNumber
+
 -- | FFI wrapper to parse a Number into a BigInt.
 foreign import fromNumberImpl
   :: forall a