blob: 1636be644c0f321f4f62dc3577786bd65a83626d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module T9233 where
import T9233a
import Data.Functor.Identity
upds :: (Monad m) => [String -> Options -> m Options]
upds = [
\a o -> return o { flags = (flags o) { f1 = splitComma a ++ " " ++ f1 (flags o) } }
]
setAll :: Options -> Options
setAll _ = (getOpt upds :: Identity ()) `seq` undefined
|
