Simon Hengel pushed to branch wip/sol-master-patch-67986 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Driver/CmdLine.hs
    ... ... @@ -92,14 +92,14 @@ data GhcFlagMode
    92 92
     
    
    93 93
     data OptKind m                             -- Suppose the flag is -f
    
    94 94
         = NoArg     (EwM m ())                 -- -f all by itself
    
    95
    -    | HasArg    (String -> EwM m ())       -- -farg or -f arg
    
    95
    +    | HasArg    (String -> EwM m ())       -- -farg or -f=arg or -f arg
    
    96 96
         | SepArg    (String -> EwM m ())       -- -f arg
    
    97
    -    | Prefix    (String -> EwM m ())       -- -farg
    
    98
    -    | OptPrefix (String -> EwM m ())       -- -f or -farg (i.e. the arg is optional)
    
    99
    -    | OptIntSuffix (Maybe Int -> EwM m ()) -- -f or -f=n; pass n to fn
    
    100
    -    | IntSuffix (Int -> EwM m ())          -- -f or -f=n; pass n to fn
    
    101
    -    | Word64Suffix (Word64 -> EwM m ())    -- -f or -f=n; pass n to fn
    
    102
    -    | FloatSuffix (Float -> EwM m ())      -- -f or -f=n; pass n to fn
    
    97
    +    | Prefix    (String -> EwM m ())       -- -farg or -f=arg
    
    98
    +    | OptPrefix (String -> EwM m ())       -- -f or -farg or -f=arg (i.e. the arg is optional)
    
    99
    +    | OptIntSuffix (Maybe Int -> EwM m ()) -- -f or -fn or -f=n; pass n to fn
    
    100
    +    | IntSuffix (Int -> EwM m ())          -- -fn or -f=n; pass n to fn
    
    101
    +    | Word64Suffix (Word64 -> EwM m ())    -- -fn or -f=n; pass n to fn
    
    102
    +    | FloatSuffix (Float -> EwM m ())      -- -fn or -f=n; pass n to fn
    
    103 103
         | PassFlag  (String -> EwM m ())       -- -f; pass "-f" fn
    
    104 104
         | AnySuffix (String -> EwM m ())       -- -f or -farg; pass entire "-farg" to fn
    
    105 105