data-default-instances-base (empty) → 0.0.1

raw patch · 4 files changed

+133/−0 lines, 4 filesdep +basedep +data-default-classsetup-changed

Dependencies added: base, data-default-class

Files

• Data/Default/Instances/Base.hs +85/−0
• LICENSE +26/−0
• Setup.lhs +4/−0
• data-default-instances-base.cabal +18/−0

@@ -0,0 +1,85 @@+{-++Copyright (c) 2013 Lukas Mai++All rights reserved.++Redistribution and use in source and binary forms, with or without modification,+are permitted provided that the following conditions are met:++* Redistributions of source code must retain the above copyright notice, this+  list of conditions and the following disclaimer.+* Redistributions in binary form must reproduce the above copyright notice,+  this list of conditions and the following disclaimer in the documentation+  and/or other materials provided with the distribution.+* Neither the name of the author nor the names of his contributors+  may be used to endorse or promote products derived from this software+  without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY LUKAS MAI AND CONTRIBUTORS "AS IS" AND ANY+EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE+DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON+ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.++-}++module Data.Default.Instances.Base (+-- | This module defines 'Default' instances for the types 'Int', 'Int8',+-- 'Int16', 'Int32', 'Int64', 'Word', 'Word8', 'Word16', 'Word32', 'Word64',+-- 'Integer', 'Float', 'Double', 'Ratio', 'Complex', '(->)', 'IO', 'Maybe',+-- '()', '[]', 'Ordering', 'Any', 'All', 'Last', 'First', 'Sum', 'Product',+-- 'Endo', 'Dual', and tuples.+) where++import Data.Default.Class+import Data.Int+import Data.Word+import Data.Monoid+import Data.Ratio+import Data.Complex++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+instance (Integral a) => Default (Ratio a) where def = 0+instance (Default a, RealFloat a) => Default (Complex a) where def = def :+ def++instance (Default r) => Default (e -> r) where def = const def+instance (Default a) => Default (IO a) where def = return def++instance Default (Maybe a) where def = Nothing++instance Default () where def = mempty+instance Default [a] where def = mempty+instance Default Ordering where def = mempty+instance Default Any where def = mempty+instance Default All where def = mempty+instance Default (Last a) where def = mempty+instance Default (First a) where def = mempty+instance (Num a) => Default (Sum a) where def = mempty+instance (Num a) => Default (Product a) where def = mempty+instance Default (Endo a) where def = mempty++instance (Default a) => Default (Dual a) where def = Dual def+instance (Default a, Default b) => Default (a, b) where def = (def, def)+instance (Default a, Default b, Default c) => Default (a, b, c) where def = (def, def, def)+instance (Default a, Default b, Default c, Default d) => Default (a, b, c, d) where def = (def, def, def, def)+instance (Default a, Default b, Default c, Default d, Default e) => Default (a, b, c, d, e) where def = (def, def, def, def, def)+instance (Default a, Default b, Default c, Default d, Default e, Default f) => Default (a, b, c, d, e, f) where def = (def, def, def, def, def, def)+instance (Default a, Default b, Default c, Default d, Default e, Default f, Default g) => Default (a, b, c, d, e, f, g) where def = (def, def, def, def, def, def, def)

@@ -0,0 +1,26 @@+Copyright (c) 2013 Lukas Mai++All rights reserved.++Redistribution and use in source and binary forms, with or without modification,+are permitted provided that the following conditions are met:++* Redistributions of source code must retain the above copyright notice, this+  list of conditions and the following disclaimer.+* Redistributions in binary form must reproduce the above copyright notice,+  this list of conditions and the following disclaimer in the documentation+  and/or other materials provided with the distribution.+* Neither the name of the author nor the names of his contributors+  may be used to endorse or promote products derived from this software+  without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY LUKAS MAI AND CONTRIBUTORS "AS IS" AND ANY+EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE+DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON+ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,4 @@+#!/usr/bin/env runhaskell+> import Distribution.Simple+> main :: IO ()+> main = defaultMain

@@ -0,0 +1,18 @@+Name:            data-default-instances-base+Version:         0.0.1+Cabal-Version:   >= 1.6+Category:        Data+Synopsis:        Default instances for types in base+Build-Type:      Simple+License:         BSD3+License-File:    LICENSE+Author:          Lukas Mai+Maintainer:      <l.mai@web.de>++source-repository head+  type: git+  location: https://github.com/mauke/data-default++Library+  Build-Depends:     base >=2 && <5, data-default-class+  Exposed-Modules:   Data.Default.Instances.Base