@@ -41,8 +41,7 @@ import Terminal.Args (Parser(..), suggestFiles)
4141
4242data Options =
4343 Options
44− { _warn :: Bool
45− , _mode :: Obj.Mode
44+ { _mode :: Obj.Mode
4645 , _target :: Obj.Target
4746 , _output :: Maybe Output
4847 }
@@ -63,7 +62,7 @@ generate options summary graph@(Crawl.Graph args _ _ _ _) =
6362
6463
6564generateMonolith :: Options -> Summary.Summary -> Crawl.Result -> [Module.Raw] -> Task.Task ()
66−generateMonolith (Options _ debug target output_) summary@(Summary.Summary _ project _ ifaces _) graph names =
65+generateMonolith (Options debug target output_) summary@(Summary.Summary _ project _ ifaces _) graph names =
6766 do
6867 objectGraph <- organize summary graph
6968 let pkg = Project.getName project