diff options
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 - |