Simplify the internal canonicalizePathWith API

System/Directory/Internal/Posix.hsc

@@ -81,14 +81,10 @@ withRealpath path action = case c_PATH_MAX of
     allocaBytes (pathMax + 1) (realpath >=> action)
   where realpath = throwErrnoIfNull "" . c_realpath path
 
-canonicalizePathWith :: ((OsPath -> IO OsPath) -> OsPath -> IO OsPath)
-                     -> OsPath
-                     -> IO OsPath
-canonicalizePathWith attemptRealpath path = do
-  let realpath (OsString path') =
-        Posix.withFilePath path'
-          (`withRealpath` ((OsString <$>) . Posix.peekFilePath))
-  attemptRealpath realpath path
+realPath :: OsPath -> IO OsPath
+realPath (OsString path') =
+  Posix.withFilePath path'
+    (`withRealpath` ((OsString <$>) . Posix.peekFilePath))
 
 canonicalizePathSimplify :: OsPath -> IO OsPath
 canonicalizePathSimplify = pure

System/Directory/Internal/Windows.hsc

@@ -407,10 +407,8 @@ peekTStringWith bufferSize cFunc = do
     Left proposedSize -> peekTStringWith proposedSize cFunc
     Right result      -> pure result
 
-canonicalizePathWith :: ((OsPath -> IO OsPath) -> OsPath -> IO OsPath)
-                     -> OsPath
-                     -> IO OsPath
-canonicalizePathWith attemptRealpath = attemptRealpath getFinalPathName
+realPath :: OsPath -> IO OsPath
+realPath = getFinalPathName
 
 canonicalizePathSimplify :: OsPath -> IO OsPath
 canonicalizePathSimplify path =

System/Directory/OsPath.hs

@@ -872,7 +872,7 @@ canonicalizePath = \ path ->
    (`ioeSetOsPath` path)) `modifyIOError` do
     -- simplify does more stuff, like upper-casing the drive letter
     dropTrailingPathSeparator . simplify <$>
-      (canonicalizePathWith attemptRealpath =<< prependCurrentDirectory path)
+      (attemptRealpath realPath =<< prependCurrentDirectory path)
   where
 
     -- allow up to 64 cycles before giving up