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 path :: OsPath
      path = unsafeEncodeUtf "/home/matt/ghc-clean/cabal.project-reinstall"
      rel_path = unsafeEncodeUtf "cabal.project-reinstall"

  replicateM_ 1000000 (getModificationTime path)