readMaybeFloatWithComma :: String -> Maybe Float
readMaybeFloatWithComma =  readMaybe . sanitize
  where
    sanitize = map (\c -> if c == ',' then '.' else c)
readMaybeFloatWithComma :: String -> Maybe Float
readMaybeFloatWithComma =  readMaybe . sanitize
  where
    sanitize = map (\c -> if c == ',' then '.' else c)
readMaybeFloatWithComma =  readMaybe . sanitize
  where
    sanitize = map (\c -> if c == ',' then '.' else c)