summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <pngwjpgh@users.noreply.github.com>2016-12-12 15:27:43 +0100
committerGregor Kleen <pngwjpgh@users.noreply.github.com>2016-12-12 15:27:43 +0100
commit5fab29b4ffc801eba2d8747fa51bb82f102a5e14 (patch)
tree886bd6530f7f954e2b40427532f9c9ba4fb085d0
parent531b41944a1bef7d95f94bc267698b5db6777305 (diff)
downloadnixos-5fab29b4ffc801eba2d8747fa51bb82f102a5e14.tar
nixos-5fab29b4ffc801eba2d8747fa51bb82f102a5e14.tar.gz
nixos-5fab29b4ffc801eba2d8747fa51bb82f102a5e14.tar.bz2
nixos-5fab29b4ffc801eba2d8747fa51bb82f102a5e14.tar.xz
nixos-5fab29b4ffc801eba2d8747fa51bb82f102a5e14.zip
fix indentation
-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 ef8d076b..73e329d8 100644
--- a/ymir/mlmmj-expose.hs
+++ b/ymir/mlmmj-expose.hs
@@ -123,7 +123,7 @@ main = do
123 case ident `elem` identities of 123 case ident `elem` identities of
124 True -> putStrLn "Identity is already known" 124 True -> putStrLn "Identity is already known"
125 False -> writeFile "exposed.ids" . unlines $ ident : identities 125 False -> writeFile "exposed.ids" . unlines $ ident : identities
126 _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity>)") >> exitWith (ExitFailure 2) 126 _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity>)") >> exitWith (ExitFailure 2)
127 "mlmmj-get-exposed" -> do 127 "mlmmj-get-exposed" -> do
128 args <- getArgs 128 args <- getArgs
129 case args of 129 case args of