Commit 4cba5398 authored by Bas Lijnse's avatar Bas Lijnse

Changed checking of link errors to allow an absent linkerrs file.

parent 980e5666
Pipeline #37758 passed with stage
in 1 minute and 11 seconds
......@@ -2,7 +2,7 @@ implementation module linkargs
import StdArray, StdBool, StdChar, StdFile, StdFunc, StdInt
import StdMaybe
import UtilOptions, UtilStrictLists
import UtilOptions, UtilIO, UtilStrictLists
:: LPathname :== String
......@@ -124,7 +124,8 @@ ReadLinkErrors :: !String !*Files -> ((Maybe [String],[String]),*Files)
ReadLinkErrors errors_path files
# (ok,file,files) = fopen errors_path FReadText files
| not ok
= ((Just ["Fatal read link errors..."],[]),files)
# (exists,files) = FExists errors_path files
= ((if exists (Just ["Fatal read link errors..."]) Nothing,[]),files)
# (le,file) = ReadErrorLines file
# (ok,files) = fclose file files
| not ok
......
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