From a46a3ce0208f4471368a4070ebd12835375491a5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 31 Aug 2017 12:47:08 -0400 Subject: improve type --- Command/FindRef.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Command') diff --git a/Command/FindRef.hs b/Command/FindRef.hs index cb14371e0..93315bcef 100644 --- a/Command/FindRef.hs +++ b/Command/FindRef.hs @@ -9,6 +9,7 @@ module Command.FindRef where import Command import qualified Command.Find as Find +import qualified Git cmd :: Command cmd = withGlobalOptions nonWorkTreeMatchingOptions $ Find.mkCommand $ @@ -17,4 +18,4 @@ cmd = withGlobalOptions nonWorkTreeMatchingOptions $ Find.mkCommand $ paramRef (seek <$$> Find.optParser) seek :: Find.FindOptions -> CommandSeek -seek o = Find.start o `withFilesInRefs` Find.findThese o +seek o = Find.start o `withFilesInRefs` (map Git.Ref $ Find.findThese o) -- cgit v1.2.3