git.iko.soy/elk
on master help sign in
Use lower case in dummyName to match elm-package
d17243bEvan Czaplicki
src/Elm/Package.hs+5−5
compare with master
unifiedsplit
@@ -23,7 +23,7 @@ type Package = (Name, Version)
23
23
24dummyName :: Name
24dummyName :: Name
25dummyName =
25dummyName =
26− Name "USER" "PROJECT"
26+ Name "user" "project"
27
27
28
28
29coreName :: Name
29coreName :: Name
@@ -51,19 +51,19 @@ fromString string =
51 case break (=='/') string of
51 case break (=='/') string of
52 ( user, '/' : project ) ->
52 ( user, '/' : project ) ->
53 if null user then
53 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)"
55
55
56 else if null project then
56 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)"
58
58
59 else if all (/='/') project then
59 else if all (/='/') project then
60 Name user <$> validate project
60 Name user <$> validate project
61
61
62 else
62 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)"
64
64
65 _ ->
65 _ ->
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)"
67
67
68
68
69validate :: String -> Either String String
69validate :: String -> Either String String