diff --git a/Data/Default.hs b/Data/Default.hs --- a/Data/Default.hs +++ b/Data/Default.hs @@ -36,6 +36,8 @@ Default(..) ) where +import Data.Int +import Data.Word import Data.Monoid import Data.Ratio import Data.Complex @@ -61,6 +63,15 @@ instance (Default a) => Default (Tree a) where def = Node def def instance Default Int where def = 0 +instance Default Int8 where def = 0 +instance Default Int16 where def = 0 +instance Default Int32 where def = 0 +instance Default Int64 where def = 0 +instance Default Word where def = 0 +instance Default Word8 where def = 0 +instance Default Word16 where def = 0 +instance Default Word32 where def = 0 +instance Default Word64 where def = 0 instance Default Integer where def = 0 instance Default Float where def = 0 instance Default Double where def = 0 diff --git a/data-default.cabal b/data-default.cabal --- a/data-default.cabal +++ b/data-default.cabal @@ -1,6 +1,6 @@ Name: data-default -Version: 0.4.0 -Cabal-Version: >= 1.2 +Version: 0.5.0 +Cabal-Version: >= 1.6 Category: Data Synopsis: A class for types with a default value Build-Type: Simple @@ -8,6 +8,10 @@ License-File: LICENSE Author: Lukas Mai Maintainer: + +source-repository head + type: git + location: https://github.com/mauke/data-default Library Build-Depends: base >=2 && <5, containers, dlist, old-locale