brittany を再帰的にかける

brittany-rec.hs

-- stack script --resolver lts-10.6 -- .\.temp\brittany-all.hs src --write-mode inplace

{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Data.Text          (Text, pack)
import qualified Filesystem.Path    as P
import           Shelly
import           System.Environment (getArgs)

main :: IO ()
main = do
  (path:opts) <- fmap pack <$> getArgs
  shelly $ do
    files <- lsRhs $ fromText path
    mapM_ (`brittany` opts) files

brittany :: P.FilePath -> [Text] -> Sh ()
brittany path opts =
  run_ "brittany" (opts ++ [toTextIgnore path])

lsRhs :: P.FilePath -> Sh [P.FilePath]
lsRhs path
  | hasExt "hs" path = pure [path]
  | otherwise = (fmap mconcat . mapM lsRhs) =<< ls path