From fd80a539306d367ab8b228b30a024328cbd88f22 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Mon, 12 Dec 2016 15:26:28 +0100
Subject: Bytestring flavours

---
 ymir/mlmmj-expose.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ymir/mlmmj-expose.hs b/ymir/mlmmj-expose.hs
index 6747ebc5..2819462e 100644
--- a/ymir/mlmmj-expose.hs
+++ b/ymir/mlmmj-expose.hs
@@ -151,7 +151,7 @@ main = do
           let
             listName = takeBaseName listDir
             replaceGroup ident = FoxReplaceGroup { groupName = ident ++ "." ++ listName
-                                                 , groupHtmlMode = False
+                                                 , groupHtmlMode = NoHTML
                                                  , groupUrls = Set.empty
                                                  , groupSubs = Set.fromList $ map (replaceSub ident) subscribers
                                                  }
@@ -161,7 +161,8 @@ main = do
                                                  , rCaseSensitive = True
                                                  }
 
-          CBS.putStrLn . encodePretty . FoxReplace . Set.fromList $ map replaceGroup identities
+          LBS.putStr . encodePretty . FoxReplace . Set.fromList $ map replaceGroup identities
+          putChar '\n'
         _ -> hPutStrLn stderr "Called without expected arguments (<listDirectory>)" >> exitWith (ExitFailure 2)
     _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2)
 
-- 
cgit v1.2.3