normalizeCoding ∷ CIAscii → CIAscii
normalizeCoding coding
- = if coding ≡ "x-gzip" then
- "gzip"
- else
- if coding ≡ "x-compress" then
- "compress"
- else
- coding
+ | coding ≡ "x-gzip" = "gzip"
+ | coding ≡ "x-compress" = "compress"
+ | otherwise = coding
unnormalizeCoding ∷ CIAscii → CIAscii
unnormalizeCoding coding
- = if coding ≡ "gzip" then
- "x-gzip"
- else
- if coding ≡ "compress" then
- "x-compress"
- else
- coding
+ | coding ≡ "gzip" = "x-gzip"
+ | coding ≡ "compress" = "x-compress"
+ | otherwise = coding