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 | ||
