nemesis-titan 2013.6.13 → 2013.6.13.1

raw patch · 2 files changed

+4/−23 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• nemesis-titan.cabal +1/−1
• src/System/Nemesis/Titan.hs +3/−22

@@ -1,5 +1,5 @@ Name:                 nemesis-titan-Version:              2013.6.13+Version:              2013.6.13.1 Build-type:           Simple Synopsis:             A collection of Nemesis tasks to bootstrap a Haskell project with a focus on continuous integration Description:          

@@ -7,16 +7,14 @@  import Air.Env import Prelude ()+import Air.TH (here)+ import qualified Data.ByteString.Char8 as B import qualified Data.UUID as UUID import System.Directory import System.Random--import System.Environment (getArgs) import System.FilePath -import Air.TH (here)- import Test.Hspec import Text.StringTemplate @@ -56,7 +54,7 @@ module Main where  import Air.Extra (with_spec, halt)-import System.Nemesis.Jinjing.Angel+import System.Nemesis.Titan import Test.Hspec  spec :: IO ()@@ -81,23 +79,6 @@              text `shouldSatisfy` (null > not)       --get_label_file_name :: IO (Maybe (String, String))-get_label_file_name = do-  xs <- io getArgs--  case xs of-    (_:file_name:[]) -> -      let label = file_name.takeBaseName-      in-      return - Just (label, file_name)-      -    (_:label:file_name:[]) ->-      return - Just (label, file_name)-    -    _ -> return Nothing-    -    titan :: String -> Unit titan file_name = do