Commit 3ddc83c8 authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Skipping message for final file inserted

parent 6abbe3d8
......@@ -58,8 +58,8 @@ makeCurry opts srcs targetFile = mapM_ (compile . snd) srcs where
isEnforced = optForce opts || (not $ null $ optDumps opts)
destFiles = if isFinalFile then destNames fn else [flatName' fn]
depFiles = fn : mapMaybe flatInterface deps
actOutdated = if isFinalFile then generateFile fn else compileFile fn
actUpToDate = skipFile fn
actOutdated = if isFinalFile then generateFile fn else compileFile fn
actUpToDate = if isFinalFile then skipFinalFile fn else skipFile fn
if interfaceExists && not (isEnforced && isFinalFile)
then smake destFiles depFiles actOutdated actUpToDate
......@@ -70,6 +70,8 @@ makeCurry opts srcs targetFile = mapM_ (compile . snd) srcs where
status opts $ "compiling " ++ f
compileModule (opts { optTargetTypes = [FlatCurry], optDumps = [] }) f
skipFinalFile f = status opts $ "skipping " ++ f
skipFile f = info opts $ "skipping " ++ f
generateFile f = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment