#!/usr/bin/env cabal

{- cabal:
build-depends: base,turtle
-}

{-# LANGUAGE OverloadedStrings #-}

import Prelude hiding (FilePath)

import Control.Monad
import Data.Either (fromRight)
import Turtle ((<.>), (</>), FilePath)
import qualified Turtle
import Turtle.Pattern
import Turtle.Prelude
import Turtle.Shell


main = do

    -- remove all output files
    sh $ rm =<< find (suffix "-out.hs") examplesDir

    -- generate new ones
    sh $ do
        inF <- find (suffix ".hs") examplesDir
        let dir = Turtle.directory inF
            base = toText' $ Turtle.basename inF
            outF = dir </> (Turtle.fromText $ base <> "-out") <.> "hs"
        formatted <- snd <$> procStrict "fourmolu" [toText' inF] Turtle.empty
        liftIO $ writeTextFile outF formatted

    where
        toText' = fromRight (error "invalid path encoding") . Turtle.toText

examplesDir = "fourmolu/data/examples"