From 56bc3e95cabb85e5f23e30b453f90438c33efbb8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 15 May 2011 02:02:46 -0400 Subject: refactor some boilerplate --- Command/Trust.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Command/Trust.hs') diff --git a/Command/Trust.hs b/Command/Trust.hs index 05505cd04..ef03828c2 100644 --- a/Command/Trust.hs +++ b/Command/Trust.hs @@ -24,9 +24,9 @@ start :: CommandStartString start name = notBareRepo $ do showStart "trust" name u <- Remote.nameToUUID name - return $ Just $ perform u + next $ perform u perform :: UUID -> CommandPerform perform uuid = do trustSet uuid Trusted - return $ Just $ return True + next $ return True -- cgit v1.2.3