define UsingDense only on ad >=4.5

Author: msakai

numeric-optimization-ad/src/Numeric/Optimization/AD.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE RankNTypes #-}
@@ -45,16 +46,21 @@
 module Numeric.Optimization.AD
   (
   -- * Problem specification
+#if MIN_VERSION_ad(4,5,0)
     UsingDense (..)
-  , UsingForward (..)
+  ,
+#endif
+    UsingForward (..)
   , UsingKahn (..)
   , UsingReverse (..)
   , UsingSparse (..)
 
   -- * Utilities and Re-exports
   , AD
   , auto
+#if MIN_VERSION_ad(4,5,0)
   , Dense
+#endif
   , Forward
   , Kahn
   , Reverse
@@ -74,8 +80,10 @@ import qualified Data.Vector.Generic as VG
 import qualified Data.Vector.Generic.Mutable as VGM
 import Numeric.AD (AD, auto)
 import Numeric.AD.Internal.Reverse (Tape)
+#if MIN_VERSION_ad(4,5,0)
 import Numeric.AD.Mode.Dense (Dense)
 import qualified Numeric.AD.Mode.Dense as Dense
+#endif
 import Numeric.AD.Mode.Forward (Forward)
 import qualified Numeric.AD.Mode.Forward as Forward
 import Numeric.AD.Mode.Kahn (Kahn)
@@ -89,6 +97,8 @@ import Numeric.Optimization
 
 -- ------------------------------------------------------------------------
 
+#if MIN_VERSION_ad(4,5,0)
+
 -- | Type for defining function and its gradient using automatic differentiation
 -- provided by "Numeric.AD.Mode.Dense".
 --
@@ -130,6 +140,8 @@ instance Traversable f => Optionally (HasGrad (UsingDense f)) where
 instance Optionally (HasHessian (UsingDense f)) where
   optionalDict = Nothing
 
+#endif
+
 -- ------------------------------------------------------------------------
 
 -- | Type for defining function and its gradient using automatic differentiation