diff --git a/positive.cabal b/positive.cabal
--- a/positive.cabal
+++ b/positive.cabal
@@ -1,6 +1,6 @@
 
 name:               positive
-version:            0.2
+version:            0.3
 cabal-version:      >= 1.10
 author:             Hans Hoglund
 maintainer:         Hans Hoglund <hans@hanshoglund.se>
diff --git a/src/Numeric/Positive.hs b/src/Numeric/Positive.hs
--- a/src/Numeric/Positive.hs
+++ b/src/Numeric/Positive.hs
@@ -29,6 +29,7 @@
 instance Integral Positive where
   toInteger (Positive a) = toInteger a
   Positive a `quotRem` Positive b = (fromIntegral $ a `quot` b, fromIntegral $ a `rem` b)
+  Positive a `divMod` Positive b  = (fromIntegral $ a `div` b, fromIntegral $ a `mod` b)
 
 instance Enum Positive where
   toEnum   = fromIntegral