handle unexpected characters in unknown comment

Author: WeissP

src/MyPrelude.hs

@@ -18,7 +18,6 @@ module MyPrelude (
   mergeList,
   listDisplay,
   getOrDft,
-  replace,
   forceRight,
   forceJust,
   LoggerM,
@@ -126,9 +125,6 @@ getOrDft :: (Default a) => Maybe a -> a
 getOrDft (Just v) = v
 getOrDft Nothing = def
 
-replace :: Lens' a b -> a -> a -> a
-replace l base new = base & l .~ new ^. l
-
 getEnvDft :: (MonadIO m) => String -> String -> m String
 getEnvDft name dft = liftIO $ SB.getEnvDefault name dft
 

src/Types/Record.hs

@@ -3,6 +3,7 @@ module Types.Record where
 import Data.ByteString.Builder (byteString)
 import Hledger (AccountName, Status (..))
 import MyPrelude
+import RIO.Text.Partial qualified as T'
 
 separator :: Builder
 separator = ";"
@@ -41,9 +42,9 @@ makeLenses ''ImportComment
 instance Display ImportComment where
   display (ImportComment {..}) =
     display
-      -- add quotes to escape separator
-      $ show
-      $ show
+      $ T'.replace "\"" ""
+      $ T'.replace ";" "|"
+      $ tshow
       $ display (maybe "" (<> ", ") _icStr)
       <> displayWithSep ", " ((\(tag, txt) -> tag <> ": " <> txt) <$> _icTags)