From 7ba5a23f8656241c52320e2142d1bf7dd7dbffd2 Mon Sep 17 00:00:00 2001 From: Ben Sima 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(-) 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