diff options
| author | Omni Worker <bot@omni.agent> | 2025-11-21 06:29:06 -0500 |
|---|---|---|
| committer | Omni Worker <bot@omni.agent> | 2025-11-21 06:29:06 -0500 |
| commit | a6b25857471894298b7979eedbfd6479caae62ea (patch) | |
| tree | 270e2c7faede9a50f7836940232f73cf546bf1b3 /Omni | |
| parent | fd2a194610fbb61a37d1e85d4188eab9fa1485f8 (diff) | |
task: t-1fKilH done
Amp-Thread-ID:
https://ampcode.com/threads/T-79499d9e-f4f4-40de-893c-524c32a45483
Co-authored-by: Amp <amp@ampcode.com>
Diffstat (limited to 'Omni')
| -rw-r--r-- | Omni/Bild.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Omni/Bild.hs b/Omni/Bild.hs index 233b31c..8d00936 100644 --- a/Omni/Bild.hs +++ b/Omni/Bild.hs @@ -1419,10 +1419,12 @@ getCoderoot = do case mEnvRoot of Just envRoot -> do let isPrefix = envRoot `List.isPrefixOf` cwd - let validPrefix = isPrefix && ( - length envRoot == length cwd || - (length cwd > length envRoot && (List.!!) cwd (length envRoot) == '/') - ) + let validPrefix = + isPrefix + && ( length envRoot + == length cwd + || (length cwd > length envRoot && (List.!!) cwd (length envRoot) == '/') + ) if validPrefix then pure envRoot else do @@ -1447,4 +1449,3 @@ findRoot dir = do if parent == dir then pure Nothing else findRoot parent - |