diff options
-rw-r--r-- | ymir/mlmmj-expose.hs | 2 |
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 | ||