wolf 0.3.44 → 0.3.45

raw patch · 3 files changed

+14/−1 lines, 3 files

Files

• src/Network/AWS/Wolf/Act.hs +3/−0
• src/Network/AWS/Wolf/File.hs +10/−0
• wolf.cabal +1/−1

@@ -95,12 +95,15 @@               sd  <- storeDirectory wd               isd <- inputDirectory sd               osd <- outputDirectory sd+              msd <- metaDirectory sd               writeJson (dd </> "control.json") (Control uid')               writeText (dd </> "input.json") input+              writeText (msd </> (textToString queue <> "_input.json")) input               download isd includes               e <- run command               upload osd               output <- readText (dd </> "output.json")+              writeText (msd </> (textToString queue <> "_output.json")) output               maybe (completeActivity token' output) (const $ failActivity token') e               t3 <- liftIO getCurrentTime               traceInfo "finish" [ "dir" .= wd ]

@@ -8,6 +8,7 @@   , storeDirectory   , inputDirectory   , outputDirectory+  , metaDirectory   , writeText   , readText   , writeJson@@ -53,6 +54,15 @@ outputDirectory :: MonadIO m => FilePath -> m FilePath outputDirectory dir = do   let dir' = dir </> "output"+  liftIO $ createDirectoryIfMissing True dir'+  pure dir'++-- | Determine path to store input/output json files and create it.+--+metaDirectory :: MonadIO m => FilePath -> m FilePath+metaDirectory dir = do+  osd <- outputDirectory dir+  let dir' = osd </> "meta"   liftIO $ createDirectoryIfMissing True dir'   pure dir' 

@@ -1,6 +1,6 @@ cabal-version: >=1.22 name: wolf-version: 0.3.44+version: 0.3.45 license: MIT license-file: LICENSE copyright: Copyright (C) 2015-2016 Swift Navigation, Inc.