example.hs

{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports -fno-warn-unused-top-binds #-}

module Lib
  ( main
  )
where

import Control.Applicative
import qualified Control.Foldl as Fold
import Control.Monad
import qualified Data.Set as S
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Filesystem.Path.CurrentOS
import System.Environment
import System.Exit hiding (die)
import Turtle.Pattern
import Turtle.Prelude
import Turtle.Shell
import Prelude hiding (FilePath)

fpToText :: FilePath -> T.Text
fpToText = either id id . Filesystem.Path.CurrentOS.toText

performSomething :: FilePath -> Shell ()
performSomething fp = do
  echo "<some actions..>"
  fns <- reduce Fold.list (find (suffix ".hs") (fp </> "src/"))
  _ec <- proc "ormolu" ("--mode=inplace" : fmap fpToText fns) ""
  echo "<some other actions...>"