From 4589ec51ba45ce3c972c9694229214375e85fb14 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 23 Jan 2020 12:22:24 -0800
Subject: [PATCH] ;bin: smooth: fix Text "Empty stream" error (#1171)

[ci skip]
---
 bin/hledger-smooth.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/bin/hledger-smooth.hs b/bin/hledger-smooth.hs
index 697d4a666..e9e681689 100755
--- a/bin/hledger-smooth.hs
+++ b/bin/hledger-smooth.hs
@@ -7,6 +7,7 @@
    --package time
 -}
 --   --package hledger-lib
+-- Experimental; not guaranteed to work or be useful.
 -- Requires latest hledger/hledger-lib from master.
 -- Run it inside an up to date hledger source tree, eg: bin/hledger-smooth.hs ACCT
 -- Or add bin/ to $PATH and [stack ghc bin/hledger-smooth;] hledger smooth ACCT
@@ -132,7 +133,4 @@ postingSetDate md p@Posting{ptags,pcomment} = p{pdate=md, ptags=ptags'', pcommen
 
     pcomment' = case md of
                   Nothing -> pcomment
-                  Just d  -> pcomment `add` T.pack ("date:"++show d)
-      where
-        c1 `add` c2 | T.head c1 == '\n' = c2 <> c1
-        c1 `add` c2                     = c1 <> c2
+                  Just d  -> commentAddTag pcomment ("date:", T.pack $ show d)