summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ymir/mlmmj-expose.hs5
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
151 let 151 let
152 listName = takeBaseName listDir 152 listName = takeBaseName listDir
153 replaceGroup ident = FoxReplaceGroup { groupName = ident ++ "." ++ listName 153 replaceGroup ident = FoxReplaceGroup { groupName = ident ++ "." ++ listName
154 , groupHtmlMode = False 154 , groupHtmlMode = NoHTML
155 , groupUrls = Set.empty 155 , groupUrls = Set.empty
156 , groupSubs = Set.fromList $ map (replaceSub ident) subscribers 156 , groupSubs = Set.fromList $ map (replaceSub ident) subscribers
157 } 157 }
@@ -161,7 +161,8 @@ main = do
161 , rCaseSensitive = True 161 , rCaseSensitive = True
162 } 162 }
163 163
164 CBS.putStrLn . encodePretty . FoxReplace . Set.fromList $ map replaceGroup identities 164 LBS.putStr . encodePretty . FoxReplace . Set.fromList $ map replaceGroup identities
165 putChar '\n'
165 _ -> hPutStrLn stderr "Called without expected arguments (<listDirectory>)" >> exitWith (ExitFailure 2) 166 _ -> hPutStrLn stderr "Called without expected arguments (<listDirectory>)" >> exitWith (ExitFailure 2)
166 _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2) 167 _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2)
167 168