From 43a2b56ddbcca8e446a9de85b93452436315c128 Mon Sep 17 00:00:00 2001
From: Texas Toland <texas@appship.it>
Date: Fri, 29 Jul 2016 20:41:31 -0500
Subject: [PATCH] Add base36

Fix #21.
---
 src/Data/Int.purs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Data/Int.purs b/src/Data/Int.purs
index b88d433..4ddf76e 100644
--- a/src/Data/Int.purs
+++ b/src/Data/Int.purs
@@ -11,6 +11,7 @@ module Data.Int
   , octal
   , decimal
   , hexadecimal
+  , base36
   , fromStringAs
   , toStringAs
   , even
@@ -114,6 +115,10 @@ decimal = Radix 10
 hexadecimal :: Radix
 hexadecimal = Radix 16
 
+-- | The base-36 system.
+base36 :: Radix
+base36 = Radix 36
+
 -- | Create a `Radix` from a number between 2 and 36.
 radix :: Int -> Maybe Radix
 radix n | n >= 2 && n <= 36 = Just (Radix n)