encodeOrder :: [(Property, Bool)] -> [String]
encodeOrder = map enc
  where enc (prop, False) = propKey prop
        enc (prop, True)  = '-' : propKey prop
encodeOrder :: [(Property, Bool)] -> [String]
encodeOrder = map enc
  where enc (prop, False) = propKey prop
        enc (prop, True)  = '-' : propKey prop
encodeOrder = map enc
  where enc (prop, False) = propKey prop
        enc (prop, True)  = '-' : propKey prop