Commit 019367bd0d89e72aea17865ceee66716d80f2f7f - charter

Fix some argument-order stuff Getty Ritter 7 years ago

1 changed file(s) with 3 addition(s) and 3 deletion(s). Collapse all Expand all

-3

charter/Main.hs less more

17	17	\| SetDescription T.Text
18	18	\| SetLicense T.Text
19	19	\| SetRoot T.Text
	20	\| AddMod T.Text
20	21	\| AddDep T.Text
21	22	\| AddUsualDeps
22		\| AddMod T.Text
23		deriving (Eq, Show)
	23	deriving (Eq, Show, Ord)
24	24
25	25	options :: [Opt.OptDescr Option]
26	26	options =

62	62
63	63
64	64	process :: [Option] -> C.Project -> C.Project
65		process opts p = fold~~r ($~~) p (map go opts)
	65	process opts p = foldl (flip ($)) p (map go opts)
66	66	where
67	67	go (AddBinary n) proj =
68	68	proj & C.binDetails %~ (C.mkBinary n :)