on master help sign in
Remove phase. It's not needed
ae4de42Huw Campbell
grenade.cabal−1
@@ -38,7 +38,6 @@ library
38 Grenade.Core.Vector
38 Grenade.Core.Vector
39 Grenade.Core.Runner
39 Grenade.Core.Runner
40 Grenade.Core.Shape
40 Grenade.Core.Shape
41− Grenade.Core.Phase
42 Grenade.Layers.Crop
41 Grenade.Layers.Crop
43 Grenade.Layers.Convolution
42 Grenade.Layers.Convolution
44 Grenade.Layers.Dropout
43 Grenade.Layers.Dropout
src/Grenade.hs−1
@@ -6,7 +6,6 @@ import Grenade.Core.Vector as X
6import Grenade.Core.Network as X
6import Grenade.Core.Network as X
7import Grenade.Core.Runner as X
7import Grenade.Core.Runner as X
8import Grenade.Core.Shape as X
8import Grenade.Core.Shape as X
9−import Grenade.Core.Phase as X
10import Grenade.Layers.Crop as X
9import Grenade.Layers.Crop as X
11import Grenade.Layers.Dropout as X
10import Grenade.Layers.Dropout as X
12import Grenade.Layers.Pad as X
11import 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