mkOptions :: Int -> Options
mkOptions n = defaultOptions {fieldLabelModifier = lowerOne . drop n}
  where
    lowerOne (x:xs) = Char.toLower x : xs
    lowerOne []     = ""
mkOptions :: Int -> Options
mkOptions n = defaultOptions {fieldLabelModifier = lowerOne . drop n}
  where
    lowerOne (x:xs) = Char.toLower x : xs
    lowerOne []     = ""
mkOptions n = defaultOptions {fieldLabelModifier = lowerOne . drop n}
  where
    lowerOne (x:xs) = Char.toLower x : xs
    lowerOne []     = ""