Commit cfc18f10 authored by Andreas Klebinger's avatar Andreas Klebinger

Change unoutput logic

parent e7260e64
This diff is collapsed.
......@@ -2,6 +2,7 @@
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-}
module RunnerTypes where
......@@ -15,6 +16,7 @@ import Options.Applicative
-- Shake - build system
import Development.Shake.FilePath hiding (exe)
import Development.Shake
import qualified Measurements as Ms
......@@ -35,6 +37,12 @@ import Text.ParserCombinators.ReadPrec (pfail)
newtype TestName = TestName { unTestName :: String }
deriving (Show, Eq, Ord, IsString, Generic, NFData)
newtype OConfig = OConfig String
deriving (Show, Eq, Ord, IsString)
-- newtype GhcVersion = GhcVersion () deriving (Show,Typeable,Eq,Hashable,Binary,NFData)
type instance RuleResult OConfig = FilePath
-- | The directory which the given test lives in
testDir :: TestName -> FilePath
testDir (TestName dir) = dir
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment