CurryInfo: makefile-3.0.0 / GenerateMakeFile.generateMakeForApplication

 
generateMakeForApplication :: Int -> String -> String -> String -> String
                           -> String -> IO ()
generateMakeForApplication verb args mainmod target root tool = do
  makefile <- generateMakeFile args root tool mainmod
  let makefiletext = showMakeFile makefile
  when (null target || verb>1) $ putStr makefiletext
  when (not (null target)) $ do
    texists <- doesFileExist target
    when texists $ do
      let tbak = target ++ ".bak"
      renameFile target tbak
      putStrLn $ "Existing makefile saved to `" ++ tbak ++ "'"
    writeFile target makefiletext
    when (verb>0) $ putStrLn $ "Makefile written to `" ++ target ++ "'"

 no demanded arguments

 deterministic operation

 
Create a makefile for a given main module:

 <FAILING>

 referentially transparent operation

 no fixity defined

 {(_,_,_,_,_,_) |-> _}

 generateMakeForApplication

 no precedence defined

 _

 Prelude.Int -> String -> String -> String -> String -> String -> Prelude.IO ()

 operation might suspend on free variables

 possibly non-terminating

 possibly non-reducible on same data term