Make error message more helpful.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 15 Jan 2016 14:48:29 +0000 (14:48 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 15 Jan 2016 14:48:29 +0000 (14:48 +0000)
[skip ci]

src/Builder.hs

index 353c00f..96cb608 100644 (file)
@@ -93,9 +93,9 @@ builderKey builder = case builder of
 -- TODO: Paths to some builders should be determined using 'defaultProgramPath'
 builderPath :: Builder -> Action FilePath
 builderPath builder = do
-    path <- askConfigWithDefault (builderKey builder) $
-            putError $ "\nCannot find path to '" ++ (builderKey builder)
-                     ++ "' in configuration files."
+    path <- askConfigWithDefault (builderKey builder) . putError $
+        "\nCannot find path to '" ++ (builderKey builder)
+        ++ "' in configuration files. Have you forgot to run configure?"
     windows <- windowsHost
     case (path, windows) of
         ("", _)    -> return path