HuwCampbell/grenade
1
1
Fork 0
mirror of https://github.com/HuwCampbell/grenade.git synced 2024-11-22 06:55:13 +03:00
Code Issues Projects Releases Wiki Activity

Remove phase. It's not needed

Browse Source
This commit is contained in:
Huw Campbell 2016-12-04 21:27:59 +11:00
parent 109d5be3ca
commit ae4de42556
3 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
grenade.cabal
View File

@ -38,7 +38,6 @@ library
Grenade.Core.Vector
Grenade.Core.Runner
Grenade.Core.Shape
Grenade.Core.Phase
Grenade.Layers.Crop
Grenade.Layers.Convolution
Grenade.Layers.Dropout

1
src/Grenade.hs
View File

@ -6,7 +6,6 @@ import Grenade.Core.Vector as X
import Grenade.Core.Network as X
import Grenade.Core.Runner as X
import Grenade.Core.Shape as X
import Grenade.Core.Phase as X
import Grenade.Layers.Crop as X
import Grenade.Layers.Dropout as X
import Grenade.Layers.Pad as X

14
src/Grenade/Core/Phase.hs
View File

@ -1,14 +0,0 @@
{-# LANGUAGE FlexibleContexts #-}
module Grenade.Core.Phase (
Phase (..)
, isTrainingPhase
) where
import Control.Monad.State
data Phase = TrainingPhase
| TestingPhase
deriving (Eq, Ord, Show)
isTrainingPhase :: MonadState Phase m => m Bool
isTrainingPhase = (== TrainingPhase) <$> get