@@ -23,7 +23,7 @@ type Package = (Name, Version)
2323
2424dummyName :: Name
2525dummyName =
26− Name "USER" "PROJECT"
26+ Name "user" "project"
2727
2828
2929coreName :: Name
@@ -51,19 +51,19 @@ fromString string =
5151 case break (=='/') string of
5252 ( user, '/' : project ) ->
5353 if null user then
54− Left "You did not provide a user name (USER/PROJECT)"
54+ Left "You did not provide a user name (user/project)"
5555
5656 else if null project then
57− Left "You did not provide a project name (USER/PROJECT)"
57+ Left "You did not provide a project name (user/project)"
5858
5959 else if all (/='/') project then
6060 Name user <$> validate project
6161
6262 else
63− Left "Expecting only one slash, separating the user and project name (USER/PROJECT)"
63+ Left "Expecting only one slash, separating the user and project name (user/project)"
6464
6565 _ ->
66− Left "There should be a slash separating the user and project name (USER/PROJECT)"
66+ Left "There should be a slash separating the user and project name (user/project)"
6767
6868
6969validate :: String -> Either String String