Copyright	(c) Justin Le 2018
License	BSD3
Maintainer	justin@jle.im
Stability	experimental
Portability	non-portable
Safe Haskell	None
Language	Haskell2010

AOC.Run

Contents

Options
Runners
Util

Description

Run actions regarding challenges, solutions, tests, submissions, viewing prompts, etc.

Essentially implements the functionality of the main app.

Synopsis

data TestSpec
- = TSAll
- | TSDayAll {
  - _tsDay :: Finite 25
  }
- | TSDayPart {
  - _tsSpec :: ChallengeSpec
  }
data MainRunOpts = MRO {
- _mroSpec :: !TestSpec
- _mroTest :: !Bool
- _mroBench :: !Bool
- _mroLock :: !Bool
- _mroInput :: !(Finite 25 -> Part -> IO (Maybe String))
}
class HasMainRunOpts c where
- mainRunOpts :: Lens' c MainRunOpts
- mroBench :: Lens' c Bool
- mroInput :: Lens' c (Finite 25 -> Part -> IO (Maybe String))
- mroLock :: Lens' c Bool
- mroSpec :: Lens' c TestSpec
- mroTest :: Lens' c Bool
mainRun :: (MonadIO m, MonadError [String] m) => Config -> MainRunOpts -> m (Map (Finite 25) (Map Part (Maybe Bool, Either [String] String)))
defaultMRO :: TestSpec -> MainRunOpts
data MainViewOpts = MVO {
- _mvoSpec :: !TestSpec
- _mvoWait :: !Bool
}
class HasMainViewOpts c where
- mainViewOpts :: Lens' c MainViewOpts
- mvoSpec :: Lens' c TestSpec
- mvoWait :: Lens' c Bool
mainView :: (MonadIO m, MonadError [String] m) => Config -> MainViewOpts -> m (Map (Finite 25) (Map Part Text))
defaultMVO :: TestSpec -> MainViewOpts
data MainSubmitOpts = MSO {
- _msoSpec :: !ChallengeSpec
- _msoTest :: !Bool
- _msoForce :: !Bool
- _msoLock :: !Bool
}
class HasMainSubmitOpts c where
- mainSubmitOpts :: Lens' c MainSubmitOpts
- msoForce :: Lens' c Bool
- msoLock :: Lens' c Bool
- msoSpec :: Lens' c ChallengeSpec
- msoTest :: Lens' c Bool
mainSubmit :: (MonadIO m, MonadError [String] m) => Config -> MainSubmitOpts -> m (Text, SubmitRes)
defaultMSO :: ChallengeSpec -> MainSubmitOpts
withColor :: ColorIntensity -> Color -> IO () -> IO ()

Options

data TestSpec Source #

Specification of parts to test and run

Constructors

TSAll
TSDayAll
Fields _tsDay :: Finite 25
TSDayPart
Fields _tsSpec :: ChallengeSpec

Instances

Show TestSpec Source #
Instance details Defined in AOC.Run Methods showsPrec :: Int -> TestSpec -> ShowS # show :: TestSpec -> String # showList :: [TestSpec] -> ShowS #

Runners

Run solutions, tests, benchmarks

data MainRunOpts Source #

Options for mainRun.

Constructors

MRO
Fields _mroSpec :: !TestSpec _mroTest :: !Bool Run tests? (Default: False) _mroBench :: !Bool Benchmark? (Default: False) _mroLock :: !Bool Lock in answer as correct? (Default: False) _mroInput :: !(Finite 25 -> Part -> IO (Maybe String)) Manually supply input (Default: always return Nothing)

Instances

HasMainRunOpts MainRunOpts Source #
Instance details Defined in AOC.Run Methods mainRunOpts :: Lens' MainRunOpts MainRunOpts Source # mroBench :: Lens' MainRunOpts Bool Source # mroInput :: Lens' MainRunOpts (Finite 25 -> Part -> IO (Maybe String)) Source # mroLock :: Lens' MainRunOpts Bool Source # mroSpec :: Lens' MainRunOpts TestSpec Source # mroTest :: Lens' MainRunOpts Bool Source #

class HasMainRunOpts c where Source #

Minimal complete definition

mainRunOpts

Methods

mainRunOpts :: Lens' c MainRunOpts Source #

mroBench :: Lens' c Bool Source #

mroInput :: Lens' c (Finite 25 -> Part -> IO (Maybe String)) Source #

mroLock :: Lens' c Bool Source #

mroSpec :: Lens' c TestSpec Source #

mroTest :: Lens' c Bool Source #

Instances

HasMainRunOpts MainRunOpts Source #
Instance details Defined in AOC.Run Methods mainRunOpts :: Lens' MainRunOpts MainRunOpts Source # mroBench :: Lens' MainRunOpts Bool Source # mroInput :: Lens' MainRunOpts (Finite 25 -> Part -> IO (Maybe String)) Source # mroLock :: Lens' MainRunOpts Bool Source # mroSpec :: Lens' MainRunOpts TestSpec Source # mroTest :: Lens' MainRunOpts Bool Source #

mainRun :: (MonadIO m, MonadError [String] m) => Config -> MainRunOpts -> m (Map (Finite 25) (Map Part (Maybe Bool, Either [String] String))) Source #

Run, test, bench.

defaultMRO :: TestSpec -> MainRunOpts Source #

Default options for mainRun.

View prompts

data MainViewOpts Source #

Options for mainView.

Constructors

MVO
Fields _mvoSpec :: !TestSpec _mvoWait :: !Bool

Instances

Show MainViewOpts Source #
Instance details Defined in AOC.Run Methods showsPrec :: Int -> MainViewOpts -> ShowS # show :: MainViewOpts -> String # showList :: [MainViewOpts] -> ShowS #
HasMainViewOpts MainViewOpts Source #
Instance details Defined in AOC.Run Methods mainViewOpts :: Lens' MainViewOpts MainViewOpts Source # mvoSpec :: Lens' MainViewOpts TestSpec Source # mvoWait :: Lens' MainViewOpts Bool Source #

class HasMainViewOpts c where Source #

Minimal complete definition

mainViewOpts

Methods

mainViewOpts :: Lens' c MainViewOpts Source #

mvoSpec :: Lens' c TestSpec Source #

mvoWait :: Lens' c Bool Source #

Instances

HasMainViewOpts MainViewOpts Source #
Instance details Defined in AOC.Run Methods mainViewOpts :: Lens' MainViewOpts MainViewOpts Source # mvoSpec :: Lens' MainViewOpts TestSpec Source # mvoWait :: Lens' MainViewOpts Bool Source #

mainView :: (MonadIO m, MonadError [String] m) => Config -> MainViewOpts -> m (Map (Finite 25) (Map Part Text)) Source #

View prompt

defaultMVO :: TestSpec -> MainViewOpts Source #

Default options for mainView.

Submit answers

data MainSubmitOpts Source #

Options for mainSubmit

Constructors

MSO
Fields _msoSpec :: !ChallengeSpec _msoTest :: !Bool Run tests before submitting? (Default: True) _msoForce :: !Bool Force submission even if bad? (Default: False) _msoLock :: !Bool Lock answer if submission succeeded? (Default: True)

Instances

Show MainSubmitOpts Source #
Instance details Defined in AOC.Run Methods showsPrec :: Int -> MainSubmitOpts -> ShowS # show :: MainSubmitOpts -> String # showList :: [MainSubmitOpts] -> ShowS #
HasMainSubmitOpts MainSubmitOpts Source #
Instance details Defined in AOC.Run Methods mainSubmitOpts :: Lens' MainSubmitOpts MainSubmitOpts Source # msoForce :: Lens' MainSubmitOpts Bool Source # msoLock :: Lens' MainSubmitOpts Bool Source # msoSpec :: Lens' MainSubmitOpts ChallengeSpec Source # msoTest :: Lens' MainSubmitOpts Bool Source #

class HasMainSubmitOpts c where Source #

Minimal complete definition

mainSubmitOpts

Methods

mainSubmitOpts :: Lens' c MainSubmitOpts Source #

msoForce :: Lens' c Bool Source #

msoLock :: Lens' c Bool Source #

msoSpec :: Lens' c ChallengeSpec Source #

msoTest :: Lens' c Bool Source #

Instances

HasMainSubmitOpts MainSubmitOpts Source #
Instance details Defined in AOC.Run Methods mainSubmitOpts :: Lens' MainSubmitOpts MainSubmitOpts Source # msoForce :: Lens' MainSubmitOpts Bool Source # msoLock :: Lens' MainSubmitOpts Bool Source # msoSpec :: Lens' MainSubmitOpts ChallengeSpec Source # msoTest :: Lens' MainSubmitOpts Bool Source #

mainSubmit :: (MonadIO m, MonadError [String] m) => Config -> MainSubmitOpts -> m (Text, SubmitRes) Source #

Submit and analyze result

defaultMSO :: ChallengeSpec -> MainSubmitOpts Source #

Default options for mainSubmit.

Util

withColor :: ColorIntensity -> Color -> IO () -> IO () Source #

Do the action with a given ANSI foreground color and intensity.