parseColour :: String -> Maybe MBColour
parseColour col@('#':rest) = Just $ sRGB24read col
parseColour :: String -> Maybe MBColour
parseColour col@('#':rest) = Just $ sRGB24read col
parseColour col@('#':rest) = Just $ sRGB24read col