Commit 18b9c60d authored by Jurrien Stutterheim's avatar Jurrien Stutterheim
Browse files

Add target name to error

parent 0af08346
......@@ -176,7 +176,7 @@ getStringArg arg [BBString x v:xs]
getStringArg arg [_:xs] = getStringArg arg xs
getIntArg :: String [BBArg] -> Maybe Int
getIntArg _ [] = Nothing
getIntArg _ [] = Nothing
getIntArg arg [BBInt x v:xs]
| arg === x = Just v
getIntArg arg [_:xs] = getIntArg arg xs
......
......@@ -61,7 +61,7 @@ instance FileEnv GeneralSt where
initGeneral :: !Bool !CompilerOptions !String !String !Project ![Target] !*File -> *General
initGeneral be_verb comp_opts application_path project_path project targets logfile
| isNothing target_index = abort ("Unable to find project environment in available environments.\n")
| isNothing target_index = abort ("Unable to find project environment for target '" +++ target_name +++ "' in available environments.\n")
=
{ prefs = prefs
, project = project
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment