Fix 7.10 builds

src/Grenade/Core/Shape.hs

@@ -32,6 +32,7 @@ module Grenade.Core.Shape (
 import           Control.DeepSeq (NFData (..))
 import           Control.Monad.Random ( MonadRandom, getRandom )
 
+import           Data.Proxy
 import           Data.Singletons
 import           Data.Singletons.TypeLits
 import           Data.Vector.Storable ( Vector )

src/Grenade/Graph/GraphNetwork.hs

@@ -1,37 +0,0 @@
-{-# LANGUAGE DataKinds             #-}
-{-# LANGUAGE GADTs                 #-}
-{-# LANGUAGE KindSignatures        #-}
-{-# LANGUAGE ScopedTypeVariables   #-}
-{-# LANGUAGE TypeOperators         #-}
-{-# LANGUAGE TypeFamilies          #-}
-{-# LANGUAGE PolyKinds             #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE FlexibleContexts      #-}
-{-# LANGUAGE FlexibleInstances     #-}
-{-# LANGUAGE LambdaCase            #-}
-
-module Grenade.Graph.Network (
-    Layer (..)
-  , UpdateLayer (..)
-  ) where
-
-import           Control.Monad.Random (MonadRandom)
-import           Data.Singletons
-import           Data.Singletons.Prelude
-
-import           GHC.TypeLits
-
-import           Grenade.Core.Shape
-import           Grenade.Core.Network ( UpdateLayer (..), Layer (..) )
-
--- | Type of a DAG network
-
-data Fin :: Nat -> * where
-    Fin0 :: Fin (n + 1)
-    FinS :: Fin n -> Fin (n + 1)
-
-data Edge :: Nat -> * where
-    Edge :: Shape -> Fin n -> Edge n
-
-data Node a n where
-    Node :: a -> [Edge n] -> Node a n

src/Grenade/Recurrent/Layers/BasicRecurrent.hs

@@ -6,11 +6,16 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE FlexibleContexts      #-}
 {-# LANGUAGE UndecidableInstances  #-}
+
+-- GHC 7.10 doesn't see recurrent run functions as total.
+{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
 module Grenade.Recurrent.Layers.BasicRecurrent (
     BasicRecurrent (..)
   , randomBasicRecurrent
   ) where
 
+
+
 import           Control.Monad.Random ( MonadRandom, getRandom )
 
 import           Data.Singletons.TypeLits

src/Grenade/Recurrent/Layers/LSTM.hs

@@ -8,6 +8,9 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE FlexibleContexts      #-}
 {-# LANGUAGE ViewPatterns          #-}
+
+-- GHC 7.10 doesn't see recurrent run functions as total.
+{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
 module Grenade.Recurrent.Layers.LSTM (
     LSTM (..)
   , LSTMWeights (..)