Как определить правило встряхивания для создания образов Docker? - PullRequest
Новая
       20

Как определить правило встряхивания для создания образов Docker?

0 голосов
/ 05 января 2019

У меня есть сборка Shake (версия 0.16.4), которая создает множество образов Docker из Dockerfile s и других файлов поддержки. Я хотел бы выделить все те сборки в едином «правиле», результатом которого будет образ докера. Я прочитал Как определить правило таймера в Shake о пользовательских правилах в Shake, но это не объясняет, как определить собственный выход .

Я хотел бы выразить что-то вроде 

 Image "foo" "latest" %> \ img -> do
     need [ ... ]
     buildDockerImage "docker/foo" img

 Image "bar" "latest" %> \ img -> 
     needImage "foo" "latest"
     ...

и затем встряхните отслеживание изображения как зависимости. Я уже реализовал подобные вещи в более старой версии Shake, но я не знаю, как это сделать в> 0,16.

Обновление :

Я пробовал это, следуя указаниям https://hackage.haskell.org/package/shake-0.17.3/docs/Development-Shake-Rule.html

newtype Repo = Repo String
    deriving (Show, Eq, Hashable, Binary, NFData)

newtype Tag = Tag String
    deriving (Show, Eq, Hashable, Binary, NFData)

newtype SHA256 = SHA256 String
    deriving (Show, Eq, Hashable, Binary, NFData)

newtype Image = Image (Repo,Tag)
    deriving (Show, Eq, Hashable, Binary, NFData)

type instance RuleResult Image = SHA256

data ImageRule = ImageRule Image (Action ())

imageRule :: (Repo, Tag) -> Action () -> Rules ()
imageRule k a = addUserRule $ ImageRule (Image k) a

needImage :: (Repo,Tag) -> Action SHA256
needImage = apply1 . Image

toBytes :: String -> BS.ByteString
toBytes = encodeUtf8 . Text.pack

fromBytes :: BS.ByteString -> String
fromBytes = Text.unpack . decodeUtf8

addBuiltinDockerRule :: Rules ()
addBuiltinDockerRule = addBuiltinRule noLint imageIdentity run
    where
      imageIdentity _ (SHA256 v) = toBytes v

      imageSha (Image (Repo r,Tag t)) = do
        Stdout out <- cmd "docker" [ "images", "--no-trunc", "-q", r <> ":" <> t ]
        pure $ BS.unpack out

      run :: BuiltinRun Image SHA256
      run key old mode = do
          current <- imageSha key
          liftIO $ putStrLn ("current:"  <> show current)
          if mode == RunDependenciesSame && fmap BS.unpack old == Just current then
              return $ RunResult ChangedNothing (BS.pack current) (SHA256 $ fromBytes $ BS.pack current)
          else do
              (_, act) <- getUserRuleOne key (const Nothing) $ \(ImageRule k act) -> if k == key then Just act else Nothing
              act
              current <- imageSha key
              return $ RunResult ChangedRecomputeDiff (BS.pack current) (SHA256 $ fromBytes $ BS.pack current)

И затем использовать его в Build.hs файле: 

main :: IO ()
main = shakeArgs options $ do

  addBuiltinDockerRule

  want [ ".haskell.img" ]

  imageRule (Repo "haskell", Tag "latest") $ do
    need [ "docker/haskell/Dockerfile" ]
    cmd "docker" [ "build", "-t", "haskell:latest", "-f", "docker/haskell/Dockerfile" ]

  ".haskell.img" %> \ fp -> do
    needImage (Repo "haskell", Tag "latest")
    Stdout out <- cmd "docker" [ "images", "--no-trunc", "-q", "haskell:latest" ]
    writeFile' fp out

Кажется, это работает, но один недостаток в том, что want изображение невозможно: мне нужно добавить правило с файлом, чтобы оно работало.

1 Ответ

0 голосов
/ 08 января 2019

Так что предлагаемое решение работает. Можно добавить «фальшивую» цель, чтобы убедиться, что изображения создаются по запросу: 

"haskell.img" ~> void (needImage "haskell")
...