casadi-bindings 3.1.0.0 → 3.1.0.1
raw patch · 2 files changed
+3/−3 lines, 2 files
Files
- casadi-bindings.cabal +1/−1
- src/Casadi/Overloading.hs +2/−2
casadi-bindings.cabal view
@@ -1,5 +1,5 @@ name: casadi-bindings-version: 3.1.0.0+version: 3.1.0.1 synopsis: mid-level bindings to CasADi category: Numerical, Math description:
src/Casadi/Overloading.hs view
@@ -15,8 +15,8 @@ class Fmod a where fmod :: a -> a -> a -foreign import ccall unsafe "c_fmod" c_fmod :: CDouble -> CDouble -> CDouble-foreign import ccall unsafe "c_fmodf" c_fmodf :: CFloat -> CFloat -> CFloat+foreign import ccall unsafe "math.h fmod" c_fmod :: CDouble -> CDouble -> CDouble+foreign import ccall unsafe "math.h fmodf" c_fmodf :: CFloat -> CFloat -> CFloat instance Fmod Double where fmod x y = realToFrac $ c_fmod (realToFrac x) (realToFrac y) instance Fmod Float where fmod x y = realToFrac $ c_fmodf (realToFrac x) (realToFrac y)