waiz-0.0.1.0: test/doctest_tests.hs

{-# OPTIONS_GHC -Wall #-}

module Main where

import System.Exit (ExitCode (ExitFailure, ExitSuccess), exitFailure, exitSuccess)
import System.Process (rawSystem)

main :: IO ()
main = do
  r <-
    rawSystem
      "cabal"
      [ "exec"
      , "--"
      , "doctest"
      , "-isrc"
      , "src/Network/Wai/Optics/FilePart.hs"
      , "src/Network/Wai/Optics/RequestBodyLength.hs"
      ]
  case r of
    ExitSuccess -> exitSuccess
    ExitFailure _ -> exitFailure