Requested changes

src/System/Hapistrano.hs

@@ -144,8 +144,8 @@ playScript
   -> Maybe (Path Rel Dir) -- ^ Working directory
   -> [GenericCommand]     -- ^ Commands to execute
   -> Hapistrano ()
-playScript deployDir release mworkingDir cmds = do
-  rpath <- releasePath deployDir release mworkingDir
+playScript deployDir release mWorkingDir cmds = do
+  rpath <- releasePath deployDir release mWorkingDir
   forM_ cmds (execWithInheritStdout . Cd rpath)
 
 -- | Plays the given script on your machine locally.
@@ -282,12 +282,12 @@ releasePath
   -> Release              -- ^ 'Release' identifier
   -> Maybe (Path Rel Dir) -- ^ Working directory
   -> Hapistrano (Path Abs Dir)
-releasePath deployPath release mworkingDir =
+releasePath deployPath release mWorkingDir =
   let rendered = renderRelease release
   in case parseRelDir rendered of
     Nothing    -> failWith 1 (Just $ "Could not append path: " ++ rendered)
     Just rpath ->
-      return $ case mworkingDir of
+      return $ case mWorkingDir of
         Nothing         -> releasesPath deployPath </> rpath
         Just workingDir -> releasesPath deployPath </> rpath </> workingDir
 

stack.yaml

@@ -1,4 +1,3 @@
-resolver: lts-17.9
+resolver: lts-17.10
 packages:
-  - example
   - .

stack.yaml.lock

@@ -6,7 +6,7 @@
 packages: []
 snapshots:
 - completed:
-    size: 567037
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/17/9.yaml
-    sha256: d7d8d5106e53d1669964bd8bd2b0f88a5ad192d772f5376384b76738fd992311
-  original: lts-17.9
+    size: 567241
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/17/10.yaml
+    sha256: 321b3b9f0c7f76994b39e0dabafdc76478274b4ff74cc5e43d410897a335ad3b
+  original: lts-17.10