summaryrefslogtreecommitdiff
path: root/ymir/mlmmj-expose.hs
diff options
context:
space:
mode:
Diffstat (limited to 'ymir/mlmmj-expose.hs')
-rw-r--r--ymir/mlmmj-expose.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/ymir/mlmmj-expose.hs b/ymir/mlmmj-expose.hs
index faf4e3b6..7255f404 100644
--- a/ymir/mlmmj-expose.hs
+++ b/ymir/mlmmj-expose.hs
@@ -161,7 +161,7 @@ main = do
161 , rCaseSensitive = True 161 , rCaseSensitive = True
162 } 162 }
163 163
164 CLBS.putStrLn . encodePretty . FoxReplace . Set.fromList $ map replaceGroup identities 164 CBS.putStrLn . encodePretty . FoxReplace . Set.fromList $ map replaceGroup identities
165 _ -> hPutStrLn stderr "Called without expected arguments (<listDirectory>)" >> exitWith (ExitFailure 2) 165 _ -> hPutStrLn stderr "Called without expected arguments (<listDirectory>)" >> exitWith (ExitFailure 2)
166 _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2) 166 _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2)
167 167