@@ -10,6 +10,7 @@ import qualified Data.ByteString.Lazy as BS
1010import qualified Data.HashMap.Strict as Map
1111import qualified Elm.Internal.Name as N
1212import qualified Elm.Internal.Version as V
13+import qualified Elm.Internal.Paths as Path
1314
1415data Deps = Deps
1516 { name :: N.Name
@@ -47,10 +48,6 @@ instance FromJSON Deps where
4748 Right nm -> return nm
4849
4950 exposed <- get obj "exposed-modules" "a list of modules exposed to users"
50− when (null exposed) $
51− fail "there are no 'exposed-modules'.\n\
52− \At least one module must be exposed \
53− \for anyone to use this library!"
5451
5552 elmVersion <- get obj "elm-version" "the version of the Elm compiler you are using"
5653
@@ -76,7 +73,8 @@ get obj field desc =
7673 case maybe of
7774 Just value -> return value
7875 Nothing -> fail $ "Missing field " ++ show field ++ ", " ++ desc ++ ".\n" ++
79− " <https://github.com/evancz/rainbow-palette/blob/master/elm_dependencies.json>"
76+ " Check out an example " ++ Path.dependencyFile ++ " file here:" ++
77+ " <https://github.com/evancz/automaton/blob/master/elm_dependencies.json>"
8078
8179repoToName :: String -> Either String N.Name
8280repoToName repo