|
@@ -1,5 +1,5 @@
|
|
module Main where
|
|
module Main where
|
|
-import Numeric (showIntAtBase)
|
|
|
|
|
|
+import Numeric (showHex, showIntAtBase)
|
|
import Data.List (isInfixOf, genericIndex)
|
|
import Data.List (isInfixOf, genericIndex)
|
|
import Data.List.Split(splitOn)
|
|
import Data.List.Split(splitOn)
|
|
import Text.Read (readMaybe)
|
|
import Text.Read (readMaybe)
|
|
@@ -91,7 +91,7 @@ main = do
|
|
exitWith ExitSuccess
|
|
exitWith ExitSuccess
|
|
_ -> do
|
|
_ -> do
|
|
putStrLn "Outputting in hex."
|
|
putStrLn "Outputting in hex."
|
|
- return (\n -> showIntAtBase 16 (\x -> show x !! 0) n "")
|
|
|
|
|
|
+ return (\n -> showHex n "")
|
|
in do
|
|
in do
|
|
printFun <- printFunIO
|
|
printFun <- printFunIO
|
|
putStrLn "Enter a digit or range (Ctrl-C to exit)."
|
|
putStrLn "Enter a digit or range (Ctrl-C to exit)."
|