b9 0.5.47 → 0.5.48
raw patch · 2 files changed
+8/−1 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ B9.Content.Generator: FromStrictBinary :: ByteString -> Content
+ B9.Content.Generator: packBinaryContent :: [Word8] -> Content
Files
- b9.cabal +1/−1
- src/lib/B9/Content/Generator.hs +7/−0
b9.cabal view
@@ -1,5 +1,5 @@ name: b9-version: 0.5.47+version: 0.5.48 synopsis: A tool and library for building virtual machine images.
src/lib/B9/Content/Generator.hs view
@@ -20,6 +20,7 @@ import B9.Content.StringTemplate import B9.Content.YamlObject import qualified Data.ByteString.Char8 as B+import qualified Data.ByteString as BStrict import Test.QuickCheck import B9.QCUtil@@ -32,8 +33,13 @@ | FromString String | FromTextFile SourceFile | FromURL String+ | FromStrictBinary BStrict.ByteString deriving (Read,Show,Typeable,Eq,Data,Generic) +-- | Pack bytes into a 'Content' such that a binary file will generated.+packBinaryContent :: [Word8] -> Content+packBinaryContent = FromStrictBinary . BStrict.pack+ instance Hashable Content instance Binary Content instance NFData Content@@ -50,6 +56,7 @@ render (RenderYaml ast) = encodeSyntax <$> fromAST ast render (FromTextFile s) = readTemplateFile s render (FromString str) = return (B.pack str)+ render (FromStrictBinary b) = return b render (FromURL url) = lift $ do dbgL $ "Downloading: " ++ url (exitcode,out,err) <- liftIO $ readProcessWithExitCode "curl" [url] ""