Commit 700b34a8 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Fix printing of flags in build reports

parent 6e0bcd09
......@@ -229,8 +229,8 @@ fieldDescrs =
]
dispFlag :: (FlagName, Bool) -> Disp.Doc
dispFlag (FlagName name, True) = Disp.char '-' <> Disp.text name
dispFlag (FlagName name, False) = Disp.text name
dispFlag (FlagName name, True) = Disp.text name
dispFlag (FlagName name, False) = Disp.char '-' <> Disp.text name
parseFlag :: Parse.ReadP r (FlagName, Bool)
parseFlag = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment