Constrain type for imgDockerAdd

sjakobi · sjakobi · commit 5dc525d310ff · 2016-07-21T14:04:34.000+02:00
diff --git a/src/Stack/Image.hs b/src/Stack/Image.hs
@@ -114,9 +114,8 @@ syncAddContentToDir opts dir = do
     let imgAdd = imgDockerAdd opts
     forM_
         (Map.toList imgAdd)
-        (\(source,dest) ->
+        (\(source,destPath) ->
               do sourcePath <- resolveDir (bcRoot bconfig) source
-                 destPath <- parseAbsDir dest
                  let destFullPath = dir </> dropRoot destPath
                  ensureDir destFullPath
                  copyDirRecur sourcePath destFullPath)
diff --git a/src/Stack/Types/Image.hs b/src/Stack/Types/Image.hs
@@ -30,7 +30,7 @@ data ImageDockerOpts = ImageDockerOpts
     , imgDockerEntrypoints :: !(Maybe [String])
       -- ^ Maybe have a specific ENTRYPOINT list that will be used to
       -- create images.
-    , imgDockerAdd :: !(Map FilePath FilePath)
+    , imgDockerAdd :: !(Map FilePath (Path Abs Dir))
       -- ^ Maybe have some static project content to include in a
       -- specific directory in all the images.
     , imgDockerImageName :: !(Maybe String)
