From f2beabb10f54de487ae44bfab6250e489a706c0b Mon Sep 17 00:00:00 2001 From: Shea Levy Date: Fri, 22 Mar 2019 22:24:57 -0400 Subject: [PATCH] Remove as-yet unused System.Nix.Build --- hnix-store-core/hnix-store-core.cabal | 1 - hnix-store-core/src/System/Nix/Build.hs | 49 ------------------------- 2 files changed, 50 deletions(-) delete mode 100644 hnix-store-core/src/System/Nix/Build.hs diff --git a/hnix-store-core/hnix-store-core.cabal b/hnix-store-core/hnix-store-core.cabal index 2bee9b1..d84a8d4 100644 --- a/hnix-store-core/hnix-store-core.cabal +++ b/hnix-store-core/hnix-store-core.cabal @@ -18,7 +18,6 @@ cabal-version: >=1.10 library exposed-modules: System.Nix.Base32 - , System.Nix.Build , System.Nix.Hash , System.Nix.Internal.Hash , System.Nix.Internal.StorePath diff --git a/hnix-store-core/src/System/Nix/Build.hs b/hnix-store-core/src/System/Nix/Build.hs deleted file mode 100644 index 444e8c7..0000000 --- a/hnix-store-core/src/System/Nix/Build.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE RecordWildCards #-} -{-| -Description : Build related types -Maintainer : srk -|-} -module System.Nix.Build ( - BuildMode(..) - , BuildStatus(..) - , BuildResult(..) - , buildSuccess - ) where - -import Data.Text (Text) -import Data.HashSet (HashSet) - -data BuildMode = Normal | Repair | Check - deriving (Eq, Ord, Enum, Show) - -data BuildStatus = - Built - | Substituted - | AlreadyValid - | PermanentFailure - | InputRejected - | OutputRejected - | TransientFailure -- possibly transient - | CachedFailure -- no longer used - | TimedOut - | MiscFailure - | DependencyFailed - | LogLimitExceeded - | NotDeterministic - deriving (Eq, Ord, Enum, Show) - - --- | Result of the build -data BuildResult = BuildResult - { -- | build status, MiscFailure should be default - status :: !BuildStatus - , -- | possible build error message - error :: !(Maybe Text) - , -- | How many times this build was performed - timesBuilt :: !Integer - , -- | If timesBuilt > 1, whether some builds did not produce the same result - isNonDeterministic :: !Bool - -- XXX: | startTime stopTime time_t - } deriving (Eq, Ord, Show) - -buildSuccess BuildResult{..} = status == Built || status == Substituted || status == AlreadyValid