newtype Group to ByteString
This may speed up queries for things in groups, due to Eq and Ord being faster.
This commit is contained in:
parent
3f7fe1d325
commit
6f66b53a30
10 changed files with 69 additions and 48 deletions
|
@ -25,7 +25,7 @@ start :: [String] -> CommandStart
|
|||
start (name:g:[]) = do
|
||||
showStart' "ungroup" (Just name)
|
||||
u <- Remote.nameToUUID name
|
||||
next $ perform u g
|
||||
next $ perform u (toGroup g)
|
||||
start _ = giveup "Specify a repository and a group."
|
||||
|
||||
perform :: UUID -> Group -> CommandPerform
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue