loli-2010.10.9: Nemesis

import Prelude hiding ((.), (-))
import MPS.Light

nemesis = do
  
  clean
    [ "**/*.hi"
    , "**/*.o"
    , "manifest"
    , "Test"
    , "myloli"
    , "pure_hack"
    ]
    
  desc "prepare cabal dist"
  task "dist" - do
    sh "cabal clean"
    sh "cabal configure"
    sh "cabal sdist"

  desc "put all .hs files in manifest"
  task "manifest" - do
    sh "find . | grep 'hs-' > manifest"



  desc "show sloc"
  task "stat" - do
    sh "cloc -match-f=hs- --quiet src --no3"
    

  ghci "template" "Network/Loli/Template"
  ghci "ipaste" "Test/LoliPaste"
  ghci "i" "Test/Test"
  
  bin "test" "Test/Test"
  bin "paste" "Test/LoliPaste"
  bin "myapp" "Test/myapp"
  bin "debug" "Debug/Debug"
  
  
  -- test
  
  task "tl" - sh "curl j:3000"
  task "tp" - sh "curl -d 'src=print' j:3000"

  -- deploy
  task "deploy" - sh "scp -C .bin/paste easymic.com:~/link/loli/.bin"

  task "start" - do
    sh "echo starting.."
    sh ".bin/paste"
  
  where
    ghci n x = task n - sh - "ghci -isrc src/" ++ x ++ ".hs"
    bin n x = task n - do
      sh - "ghc --make -Wall -O1 -threaded -isrc src/" ++ x ++ ".hs -o .bin/" ++ n
      sh - "echo done.."
      sh - ".bin/" ++ n