From b505ba83e8b62a9ed0ec2fb96448c5fc801184d9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 11 Oct 2011 14:43:45 -0400 Subject: minor syntax changes --- git-annex-shell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'git-annex-shell.hs') diff --git a/git-annex-shell.hs b/git-annex-shell.hs index 79b5da69a..a4d8dd65b 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -37,7 +37,7 @@ options = uuid : commonOptions where uuid = Option [] ["uuid"] (ReqArg check paramUUID) "repository uuid" check expected = do - u <- getUUID =<< gitRepo + u <- getUUID when (u /= expected) $ error $ "expected repository UUID " ++ expected ++ " but found UUID " ++ u -- cgit v1.2.3