ghc-exactprint-0.5.0.0: tests/examples/ghc8/T9233.hs

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