global -p option

src/Stack/Config.hs

@@ -29,6 +29,7 @@ import qualified Codec.Archive.Tar as Tar
 import qualified Codec.Compression.GZip as GZip
 import           Control.Applicative
 import           Control.Concurrent (getNumCapabilities)
+import           Control.Exception  (IOException)
 import           Control.Monad
 import           Control.Monad.Catch
 import           Control.Monad.IO.Class
@@ -146,9 +147,23 @@ configFromConfigMonoid configStackRoot mproject configMonoid@ConfigMonoid{..} =
                 return $ progsDir </> $(mkRelDir stackProgName) </> platform
             _ -> return $ configStackRoot </> $(mkRelDir "programs") </> platform
 
-     configLocalBin <- do
-        localDir <- liftIO (getAppUserDataDirectory "local") >>= parseAbsDir
-        return $ localDir </> $(mkRelDir "bin")
+     configLocalBin <-
+         case configMonoidLocalBin of
+             Nothing -> do
+                 localDir <- liftIO (getAppUserDataDirectory "local") >>= parseAbsDir
+                 return $ localDir </> $(mkRelDir "bin")
+             Just userPath ->
+                 (liftIO $ canonicalizePath userPath >>= parseAbsDir)
+                 `catches`
+                 [Handler (\(ex :: IOException) -> error
+                                (unlines ["Could not install to user specified directory \""
+                                              ++ userPath ++ "\""
+                                         ,"IOException: " ++ (show ex)]))
+                 ,Handler (\(ex :: PathParseException) -> error
+                                (unlines ["Could not parse user specified directory \""
+                                              ++ userPath ++ "\""
+                                         ,"PathParseException: " ++ (show ex)]))]
+
 
      configJobs <-
         case configMonoidJobs of
@@ -161,7 +176,7 @@ configFromConfigMonoid configStackRoot mproject configMonoid@ConfigMonoid{..} =
 -- | Command-line arguments parser for configuration.
 configOptsParser :: Bool -> Parser ConfigMonoid
 configOptsParser docker =
-    (\opts systemGHC installGHC arch os jobs includes libs skipGHCCheck skipMsys -> mempty
+    (\opts systemGHC installGHC arch os jobs includes libs skipGHCCheck skipMsys localBin -> mempty
         { configMonoidDockerOpts = opts
         , configMonoidSystemGHC = systemGHC
         , configMonoidInstallGHC = installGHC
@@ -172,6 +187,7 @@ configOptsParser docker =
         , configMonoidExtraIncludeDirs = includes
         , configMonoidExtraLibDirs = libs
         , configMonoidSkipMsys = skipMsys
+        , configMonoidLocalBin = localBin
         })
     <$> Docker.dockerOptsParser docker
     <*> maybeBoolFlags
@@ -216,6 +232,11 @@ configOptsParser docker =
             "skip-msys"
             "skipping the local MSYS installation (Windows only)"
             idm
+    <*> optional (strOption
+             ( long "local-bin-path"
+             <> metavar "DIR"
+             <> help "Install binaries to DIR"
+              )) 
 
 -- | Get the directory on Windows where we should install extra programs. For
 -- more information, see discussion at:

src/Stack/Types/Config.hs

@@ -436,6 +436,8 @@ data ConfigMonoid =
     -- ^ See: 'configExtraLibDirs'
     ,configMonoidConcurrentTests     :: !(Maybe Bool)
     -- ^ See: 'configConcurrentTests'
+    ,configMonoidLocalBin            :: !(Maybe FilePath)
+    -- ^ Used to override the binary installation dir
     }
   deriving Show
 
@@ -457,6 +459,7 @@ instance Monoid ConfigMonoid where
     , configMonoidExtraIncludeDirs = Set.empty
     , configMonoidExtraLibDirs = Set.empty
     , configMonoidConcurrentTests = Nothing
+    , configMonoidLocalBin = Nothing
     }
   mappend l r = ConfigMonoid
     { configMonoidDockerOpts = configMonoidDockerOpts l <> configMonoidDockerOpts r
@@ -476,6 +479,7 @@ instance Monoid ConfigMonoid where
     , configMonoidExtraIncludeDirs = Set.union (configMonoidExtraIncludeDirs l) (configMonoidExtraIncludeDirs r)
     , configMonoidExtraLibDirs = Set.union (configMonoidExtraLibDirs l) (configMonoidExtraLibDirs r)
     , configMonoidConcurrentTests = configMonoidConcurrentTests l <|> configMonoidConcurrentTests r
+    , configMonoidLocalBin = configMonoidLocalBin l <|> configMonoidLocalBin r
     }
 
 instance FromJSON ConfigMonoid where
@@ -500,6 +504,7 @@ instance FromJSON ConfigMonoid where
          configMonoidExtraIncludeDirs <- obj .:? "extra-include-dirs" .!= Set.empty
          configMonoidExtraLibDirs <- obj .:? "extra-lib-dirs" .!= Set.empty
          configMonoidConcurrentTests <- obj .:? "concurrent-tests"
+         configMonoidLocalBin <- obj .:? "local-bin"
          return ConfigMonoid {..}
 
 -- | Newtype for non-orphan FromJSON instance.

stack.cabal

@@ -24,7 +24,10 @@ extra-source-files:  README.md ChangeLog.md
                      test/package-dump/ghc-7.10.txt
 
                      new-template/src/Lib.hs
-                     new-template/new-template.cabal
+                     -- new-template/{{name}}.cabal
+                     -- Cabal doesn't like curly braces.
+                     -- Luckily this can be described via glob.
+                     new-template/*.cabal
                      new-template/test/Spec.hs
                      new-template/app/Main.hs
                      new-template/LICENSE

test/integration/lib/StackTest.hs

@@ -7,7 +7,6 @@ import System.Directory
 import System.IO
 import System.Process
 import System.Exit
-import System.Environment
 
 run' :: FilePath -> [String] -> IO ExitCode
 run' cmd args = do
@@ -44,11 +43,26 @@ stackErr args = do
 doesNotExist :: FilePath -> IO ()
 doesNotExist fp = do
     putStrLn $ "doesNotExist " ++ fp
+    exists <- doesFileOrDirExist fp
+    case exists of
+      (Right msg) -> error msg
+      (Left _) -> return ()
+
+doesExist :: FilePath -> IO ()
+doesExist fp = do
+    putStrLn $ "doesExist " ++ fp
+    exists <- doesFileOrDirExist fp
+    case exists of
+      (Right msg) -> return ()
+      (Left _) -> error "No file or directory exists"
+
+doesFileOrDirExist :: FilePath -> IO (Either () String) 
+doesFileOrDirExist fp = do
     isFile <- doesFileExist fp
     if isFile
-        then error $ "File exists: " ++ fp
+        then return (Right ("File exists: " ++ fp))
         else do
             isDir <- doesDirectoryExist fp
             if isDir
-                then error $ "Directory exists: " ++ fp
-                else return ()
+                then return (Right ("Directory exists: " ++ fp))
+                else return (Left ())

test/integration/tests/443-specify-path/Main.hs

@@ -0,0 +1,25 @@
+import StackTest
+import System.Directory
+
+main :: IO ()
+main = do
+  -- install in relative path
+  createDirectory "bin"
+  stack ["-p", "./bin", "install" , "happy"]
+  doesExist "./bin/happy"
+
+  -- Default install
+  -- This seems to fail due to direcory being cleaned up,
+  -- a manual test of the default stack install is required
+  -- defaultDir <- getAppUserDataDirectory "local"
+  -- stack ["install", "happy"]
+  -- doesExist (defaultDir ++ "/bin/happy")
+
+  -- install in current dir
+  stack ["-p", ".", "install", "happy" ]
+  doesExist "happy"
+
+  -- install in absolute path
+  tmpDirectory <- getTemporaryDirectory
+  stack ["-p", tmpDirectory, "install", "happy" ]
+  doesExist "/tmp/happy"