haddock-without-a-space-after-its-trigger.hs

module Options where

data Options = Options
  { recover :: Bool
    -- ^Recover from errors.
    --
    -- Invalid input is taken literally.
  , strict :: Bool
  }

parse ::
  Options ->
  -- ^Options to parse with.
  --
  -- Strict ones reject what others let through.
  String ->
  Maybe Int
parse _ _ = Nothing