From a6b25857471894298b7979eedbfd6479caae62ea Mon Sep 17 00:00:00 2001 From: Omni Worker Date: Fri, 21 Nov 2025 06:29:06 -0500 Subject: task: t-1fKilH done Amp-Thread-ID: https://ampcode.com/threads/T-79499d9e-f4f4-40de-893c-524c32a45483 Co-authored-by: Amp --- Omni/Bild.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'Omni') 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 - -- cgit v1.2.3