summaryrefslogtreecommitdiff
path: root/chip/make
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-08-30 06:57:44 -0700
committerBen Sima <ben@bsima.me>2019-08-30 06:57:44 -0700
commit7ba5a23f8656241c52320e2142d1bf7dd7dbffd2 (patch)
tree720390df15bb20ec10873b4e5be1d781cb63d533 /chip/make
parent7a0e9725e691bd84cda8f6b169414581e5e1d4f1 (diff)
chip/make: small change to printing, remove TODO
Diffstat (limited to 'chip/make')
-rwxr-xr-xchip/make11
1 files changed, 3 insertions, 8 deletions
diff --git a/chip/make b/chip/make
index 439cf46..a2b6d34 100755
--- a/chip/make
+++ b/chip/make
@@ -4,12 +4,6 @@
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -Wall #-}
-{-
-TODO: rewrite this in using shake
-- [ ] https://hackage.haskell.org/package/shake-0.17.7/docs/Development-Shake.html
-- [ ] make it optionally run the built program too, like entr
-- [ ] generate tags each time it's rebuilt
--}
module Main where
import Control.Concurrent
@@ -48,14 +42,15 @@ main = do
dirs <- nub . concat <$> mapM getDirs ["aero", "apex", "lore"]
forM_ dirs $ \arg ->
void $ addWatch inotify [Modify] (pack arg) (const notify)
- forever $ wait >> bild app >> say "ok, waiting..."
- Make -> bild app >> say "ok"
+ forever $ wait >> bild app >> say "waiting..."
+ Make -> bild app
bild :: App -> IO ()
bild app = do
say $ "make: " ++ name app
apex app `catch` nop
aero app `catch` nop
+ say $ "made: " ++ name app
say :: String -> IO ()
say = putStrLn