Unqualify the Data.Char import, and specify the functions that we need.

diff --git a/src/Main.hs b/src/Main.hs
index 669ed4f7aff847d6b25505f786056fd66783160c..53365373d9c4230b12760a5ea9a2e51f9e70866f 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,4 +1,4 @@
-import qualified Data.Char as DC
+import Data.Char (digitToInt, intToDigit)
 import qualified Data.List as DL
 import qualified Numeric as N
 import System.Exit (exitFailure)
@@ -20,7 +20,7 @@ maskbits cidr = read ((splitWith (`elem` "/") cidr) !! 1)
 
 -- Takes an Int, and returns its base-two representation as a String.
 base_two :: Int -> String
-base_two n = N.showIntAtBase 2 DC.intToDigit n ""
+base_two n = N.showIntAtBase 2 intToDigit n ""
 
 
 -- Takes a set of octets, and converts them to base-two
@@ -104,7 +104,7 @@ base_two_to_base_ten s =
     else
         fst (parsed !! 0)
     where
-      parsed = N.readInt 2 is_binary_digit DC.digitToInt s
+      parsed = N.readInt 2 is_binary_digit digitToInt s
 
 
 -- A regular expression that matches a non-address character.