diff options
-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 |