@@ -100,10 +100,11 @@ generatePom :: FilePath -> -- tgt dir
100100 FilePath -> -- output target
101101 [String] -> -- libs
102102 IO ()
103−generatePom tgtDir out libs = do
104− let (Ident clsName) = either error id (mkClassName out)
105− let execPom = pomString clsName (takeBaseName out) libs
106− writeFile (pomFileName tgtDir) execPom
103+generatePom tgtDir out libs = writeFile (pomFileName tgtDir) execPom
104+ where
105+ (Ident clsName) = either error id (mkClassName out)
106+ execPom = pomString clsName (takeBaseName out) libs
107+
107108
108109invokeMvn :: FilePath -> String -> IO ()
109110invokeMvn tgtDir command = do