Added missing import which made the test spec suite fail

This commit is contained in:
DavidMazarro 2022-02-03 15:36:45 +01:00
parent eb5d1071b8
commit 83ee3a27e0
No known key found for this signature in database
GPG Key ID: 5B490A04990FAAB7

View File

@ -30,6 +30,7 @@ import qualified Test.Hspec as Hspec
import Test.Hspec.QuickCheck
import Test.QuickCheck hiding (Success)
import System.Hapistrano (releasePath)
import System.Hapistrano.Config (deployStateFilename)
testBranchName :: String
testBranchName = "another_branch"
@ -173,7 +174,7 @@ spec = do
release <- Hap.pushRelease task
Hap.createHapistranoDeployState deployPath release Success
Hap.deployState deployPath Nothing release `shouldReturn`
Just Success
Success
describe "activateRelease" $
it "creates the current symlink correctly" $ \(deployPath, repoPath) ->