Bytestring flavours

1 files 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)