diff options
author | Ben Sima <ben@bsima.me> | 2019-08-30 06:57:44 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2019-08-30 06:57:44 -0700 |
commit | 7ba5a23f8656241c52320e2142d1bf7dd7dbffd2 (patch) | |
tree | 720390df15bb20ec10873b4e5be1d781cb63d533 /chip/make | |
parent | 7a0e9725e691bd84cda8f6b169414581e5e1d4f1 (diff) |
chip/make: small change to printing, remove TODO
Diffstat (limited to 'chip/make')
-rwxr-xr-x | chip/make | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -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 |