nemesis 2009.8.18 → 2009.10.7

raw patch · 6 files changed

+20/−11 lines, 6 filesdep ~mpsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: mps

API changes (from Hackage documentation)

Files

• changelog.md +7/−0
• nemesis.cabal +2/−2
• readme.md +3/−1
• src/System/Nemesis.hs +2/−2
• src/System/Nemesis/Runner.hs +3/−2
• src/System/Nemesis/Util.hs +3/−4

@@ -1,3 +1,10 @@+2009.10.7+---------++### Feature++* allows 3 namespaces to be displayed in menu+ 2009.8.18 --------- 

@@ -1,5 +1,5 @@ Name:                 nemesis-Version:              2009.8.18+Version:              2009.10.7 Build-type:           Simple Synopsis:             a Rake like task management tool Description:          smart per project code snippets@@ -16,7 +16,7 @@  library   ghc-options: -Wall-  build-depends: base >= 4 && < 5, old-time, time, haskell98, mtl, process, containers, data-default, Glob >= 0.4, mps >= 2009.8.18.1+  build-depends: base >= 4 && < 5, old-time, time, haskell98, mtl, process, containers, data-default, Glob >= 0.4, mps >= 2009.9.18   hs-source-dirs: src/   exposed-modules:                         System.Nemesis

@@ -119,7 +119,9 @@      import System.Nemesis (run)     import System.Nemesis.DSL-+    import MPS.Light ((-))+    import Prelude hiding ((-))+         nemesis = do       task "i" (sh "ghci -isrc src/System/Nemesis.hs")         

@@ -6,7 +6,7 @@ import Data.Default import Data.List (sort) import Data.Map (Map, insert, empty, lookup, elems)-import Prelude hiding ((.), (>), (^), lookup, (-))+import Prelude () import System import System.Nemesis.Util @@ -45,7 +45,7 @@     Nothing -> title     Just s -> title ++ s     where-      title = x.display_name.ljust 34 ' ' ++ ": "+      title = x.display_name.ljust 44 ' ' ++ ": "  instance Eq Task where   a == b = a.name == b.name

@@ -1,13 +1,14 @@ import Control.Monad hiding (join) import Data.List (find) import Data.Time.Clock.POSIX-import Prelude hiding ((.), (>), (^), (-))+import Prelude () import System import System.Cmd import System.Directory import System.Nemesis.Util import System.Time import System.Nemesis.DSL+import qualified Prelude as P   start, end :: String@@ -37,7 +38,7 @@         else do           bin_stamp <- bin.file_mtime           src_stamp <- get_src_name >>= file_mtime-          return - bin_stamp < src_stamp+          return - bin_stamp P.< src_stamp          file_mtime path =        getModificationTime path ^ seconds ^ posixSecondsToUTCTime

@@ -1,17 +1,16 @@ {-# LANGUAGE NoMonomorphismRestriction #-}  module System.Nemesis.Util (-    module MPS.Light+    module MPS.Env   , ls   , rm   , rm_rf ) where  import System.Directory-import MPS.Light-import Prelude hiding ((^), (.), (>))+import MPS.Env hiding (lookup)+import Prelude () import Data.List ((\\))-  ls :: String -> IO [String] ls s = getDirectoryContents s ^ (\\ [".", ".."])