-- | Test whether a string looks like a hash (40 chars long, all hex).
isHashString :: String -> Bool
isHashString str = length str == 40 && all isHexDigit str
isHashString :: String -> Bool
isHashString str = length str == 40 && all isHexDigit str
isHashString str = length str == 40 && all isHexDigit str