@@ -41,7 +41,21 @@ data IOption = IOption { opt_logLevel :: Int,
42 deriving (Show, Eq)
42 deriving (Show, Eq)
44−defaultOpts = IOption 0 False False True False False True True False ViaC Executable "" [] []
44+defaultOpts = IOption { opt_logLevel = 0
45+ , opt_typecase = False
46+ , opt_typeintype = False
47+ , opt_coverage = True
48+ , opt_showimp = False
49+ , opt_errContext = False
54+ , opt_outputTy = Executable
56+ , opt_importdirs = []
46data LanguageExt = TypeProviders deriving (Show, Eq, Read, Ord)
60data LanguageExt = TypeProviders deriving (Show, Eq, Read, Ord)