injectSource ::  ImportTag -> Source -> Transaction -> Transaction
injectSource tag source t = t
  {tpostings = reverse $ p1{pcomment =
                            commentPrefix tag <> TL.toStrict (json source)
                           } : rest}
  where (p1 : rest) = reverse $ tpostings t

-- instance MonadReader (Options user Config env) m => ReaderM user env m
injectSource ::  ImportTag -> Source -> Transaction -> Transaction
injectSource tag source t = t
  {tpostings = reverse $ p1{pcomment =
                            commentPrefix tag <> TL.toStrict (json source)
                           } : rest}
  where (p1 : rest) = reverse $ tpostings t

-- instance MonadReader (Options user Config env) m => ReaderM user env m
injectSource tag source t = t
  {tpostings = reverse $ p1{pcomment =
                            commentPrefix tag <> TL.toStrict (json source)
                           } : rest}
  where (p1 : rest) = reverse $ tpostings t

-- instance MonadReader (Options user Config env) m => ReaderM user env m