Remove phase. It's not needed
commitae4de42556f3f9bb194460c5eab65eb9cd7a4cb7
authorHuw Campbell <huw.campbell@ambiata.com>
dateSun 4 Dec 2016, 21:27 (10 years ago)
parent109d5be
grenade.cabal−1
@@ -38,7 +38,6 @@ library
3838 Grenade.Core.Vector
3939 Grenade.Core.Runner
4040 Grenade.Core.Shape
41− Grenade.Core.Phase
4241 Grenade.Layers.Crop
4342 Grenade.Layers.Convolution
4443 Grenade.Layers.Dropout
src/Grenade.hs−1
@@ -6,7 +6,6 @@ import Grenade.Core.Vector as X
66import Grenade.Core.Network as X
77import Grenade.Core.Runner as X
88import Grenade.Core.Shape as X
9−import Grenade.Core.Phase as X
109import Grenade.Layers.Crop as X
1110import Grenade.Layers.Dropout as X
1211import Grenade.Layers.Pad as X
src/Grenade/Core/Phase.hsdeleted−14
@@ -1,14 +0,0 @@
1−{-# LANGUAGE FlexibleContexts #-}
2−module Grenade.Core.Phase (
3− Phase (..)
4− , isTrainingPhase
5− ) where
6−
7−import Control.Monad.State
8−
9−data Phase = TrainingPhase
10− | TestingPhase
11− deriving (Eq, Ord, Show)
12−
13−isTrainingPhase :: MonadState Phase m => m Bool
14−isTrainingPhase = (== TrainingPhase) <$> get