summaryrefslogtreecommitdiff
path: root/ymir/mlmmj-expose.hs
diff options
context:
space:
mode:
authorGregor Kleen <pngwjpgh@users.noreply.github.com>2016-12-12 15:21:46 +0100
committerGregor Kleen <pngwjpgh@users.noreply.github.com>2016-12-12 15:21:46 +0100
commit446086a87736caf0ca12e21f637fb7a3c86bd051 (patch)
treef1def80387f7c5a6d8df18797e2918341cc132c8 /ymir/mlmmj-expose.hs
parent692a3961f1788abe8fd284d744e7389888dc2353 (diff)
downloadnixos-446086a87736caf0ca12e21f637fb7a3c86bd051.tar
nixos-446086a87736caf0ca12e21f637fb7a3c86bd051.tar.gz
nixos-446086a87736caf0ca12e21f637fb7a3c86bd051.tar.bz2
nixos-446086a87736caf0ca12e21f637fb7a3c86bd051.tar.xz
nixos-446086a87736caf0ca12e21f637fb7a3c86bd051.zip
syntax
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