exTags = case optExTags opts of
Nothing -> []
Just etl -> map (++ ":") etl
+ exInsts = optExInst opts
when (length allSet > 1) $
do
| setFile -> wrapIO $ Text.loadData $ fromJust tfile
| otherwise -> return $ Bad "No backend selected! Exiting."
- let ldresult = input_data >>= Loader.mergeData util_data' exTags
+ let ldresult = input_data >>= Loader.mergeData util_data' exTags exInsts
(loaded_nl, il, tags, csf) <-
(case ldresult of
Ok x -> return x
Bad s -> do
hPrintf stderr "Error: failed to load data. Details:\n%s\n" s
+ :: IO ()
exitWith $ ExitFailure 1
)
let (fix_msgs, fixed_nl) = Loader.checkData loaded_nl il