generic-optics-2.0.0.0: test/Util.hs

module Util where

import Test.Inspection
import Test.HUnit.Base

mkHUnitTest :: Result -> Test
mkHUnitTest r = TestCase $
  case r of
    Success _s -> return ()
    Failure s -> assertFailure s