Fix internal error for --format (fixes #1507)

This commit is contained in:
Vidar Holen 2019-03-06 17:42:55 -08:00
parent bbe5155e63
commit ed92fe501f
1 changed files with 3 additions and 0 deletions

View File

@ -340,6 +340,9 @@ parseOption flag options =
}
}
-- This flag is handled specially in 'process'
Flag "format" _ -> return options
Flag str _ -> do
printErr $ "Internal error for --" ++ str ++ ". Please file a bug :("
return options