defaultOptsUpdate :: AADLConfig -> O.Opts -> O.Opts
defaultOptsUpdate c copts =
  copts { O.outDir    = Just (dir </> configSrcsDir c)
        , O.outHdrDir = Just (dir </> configHdrDir  c)
        , O.outArtDir = Just dir
        }
  where
  dir = fromMaybe "." (O.outDir copts)
defaultOptsUpdate :: AADLConfig -> O.Opts -> O.Opts
defaultOptsUpdate c copts =
  copts { O.outDir    = Just (dir </> configSrcsDir c)
        , O.outHdrDir = Just (dir </> configHdrDir  c)
        , O.outArtDir = Just dir
        }
  where
  dir = fromMaybe "." (O.outDir copts)
defaultOptsUpdate c copts =
  copts { O.outDir    = Just (dir </> configSrcsDir c)
        , O.outHdrDir = Just (dir </> configHdrDir  c)
        , O.outArtDir = Just dir
        }
  where
  dir = fromMaybe "." (O.outDir copts)