@@ -113,10 +113,12 @@ validateProjectName text =
115instance Binary Name where
115instance Binary Name where
116− get = Name <$> get <*> get
117+ Name <$> get <*> get
117− put (Name user project) =
119+ put (Name user project) =
118− do put user
120+ do put user
119− put project
121+ put project
122instance Json.FromJSON Name where
124instance Json.FromJSON Name where