diff options
| -rw-r--r-- | Biz/Bild.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Biz/Bild.hs b/Biz/Bild.hs index e2f1ef1..85b62db 100644 --- a/Biz/Bild.hs +++ b/Biz/Bild.hs @@ -357,17 +357,17 @@ analyze hmap ns = case Map.lookup ns hmap of analyzeOne :: Namespace -> IO (Maybe Target) analyzeOne namespace@(Namespace _ ext) = do let path = Namespace.toPath namespace - contentLines <- - withFile path ReadMode <| \h -> - IO.hSetEncoding h IO.utf8_bom - >> Text.IO.hGetContents h - /> Text.lines root <- Env.getEnv "BIZ_ROOT" - absPath <- Dir.makeAbsolute path + let absPath = root </> path user <- Env.getEnv "USER" /> Text.pack host <- Env.lookupEnv "HOSTNAME" /> fromMaybe "interactive" /> Text.pack Log.info ["bild", "analyze", str path] let runw cmd args = Process.readProcess cmd args "" /> Text.pack /> Text.words + contentLines <- + withFile absPath ReadMode <| \h -> + IO.hSetEncoding h IO.utf8_bom + >> Text.IO.hGetContents h + /> Text.lines case ext of -- basically we don't support building these Namespace.Css -> pure Nothing |