From 7ba5a23f8656241c52320e2142d1bf7dd7dbffd2 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 30 Aug 2019 06:57:44 -0700
Subject: chip/make: small change to printing, remove TODO

---
 chip/make | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'chip/make')

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
-- 
cgit v1.2.3