getCsvConcatDescription
  :: env -> [Description env] -> MyRecord -> T.Text
getCsvConcatDescription env x record = L.unwords $ g <$> x
  where g (Field f) = getCsv f record
        g (Const t) = t
        g (Read f)  = f env
getCsvConcatDescription
  :: env -> [Description env] -> MyRecord -> T.Text
getCsvConcatDescription env x record = L.unwords $ g <$> x
  where g (Field f) = getCsv f record
        g (Const t) = t
        g (Read f)  = f env
getCsvConcatDescription env x record = L.unwords $ g <$> x
  where g (Field f) = getCsv f record
        g (Const t) = t
        g (Read f)  = f env