angel 0.3 → 0.3.1

raw patch · 2 files changed

+6/−3 lines, 2 filesdep ~base

Dependency ranges changed: base

Files

• Angel/Config.hs +5/−2
• angel.cabal +1/−1

@@ -2,7 +2,7 @@  import Control.Exception (try, SomeException) import qualified Data.Map as M-import Control.Monad (when, mapM_, void)+import Control.Monad (when, mapM_) import Control.Concurrent.STM import Control.Concurrent.STM.TVar (readTVar, writeTVar) import Data.Configurator (load, getMap, Worth(..))@@ -19,6 +19,9 @@  import Debug.Trace (trace) +void :: Monad m => m a -> m ()+void m = m >> return ()+ -- |produce a mapping of name -> program for every program buildConfigMap :: HM.HashMap Name Value -> IO SpecKey buildConfigMap cfg = @@ -44,7 +47,7 @@ modifyProg prog "exec" _ = error "wrong type for field 'exec'; string required"  modifyProg prog "delay" (Number n) | n < 0     = error "delay value must be >= 0"-                                   | otherwise = prog{delay = (fromIntegral n)}+                                   | otherwise = prog{delay = round n} modifyProg prog "delay" _ = error "wrong type for field 'delay'; integer"  modifyProg prog "stdout" (String s) = prog{stdout = (T.unpack s)}

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.3+Version:             0.3.1  -- A short (one-line) description of the package. -- Synopsis: