diff --git a/src/Data/HexString.hs b/src/Data/HexString.hs index 722aeff..a530a7f 100644 --- a/src/Data/HexString.hs +++ b/src/Data/HexString.hs @@ -32,7 +32,7 @@ hexString bs = | otherwise = False in if BS.all isValidHex bs - then (HexString bs) + then HexString bs else error ("Not a valid hex string: " ++ show bs) -- | Converts a 'B.Binary' to a 'HexString' value