bench.hs

#!/usr/bin/env -S cabal run
{- cabal:
build-depends: base >=4.17 && <5
             , directory >=1.3.8
             , filepath  >=1.4.100
             , time
             , criterion >=1.6
default-language: GHC2021
ghc-options: -O2
-}

import System.OsPath
import System.Directory.OsPath        (getModificationTime)
import Control.Monad

main :: IO ()
main = do
  let rel_path = unsafeEncodeUtf "Main.hs"

  replicateM_ 1000000 (getModificationTime rel_path)