File: Arities.hs

package info (click to toggle)
haskell-derive 2.5.16-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 460 kB
  • sloc: haskell: 3,686; makefile: 5
file content (15 lines) | stat: -rw-r--r-- 429 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
-- GENERATED START
{-# LANGUAGE FlexibleInstances, UndecidableInstances, ScopedTypeVariables #-}

module Data.Derive.Instance.Arities where

import Data.Derive.Class.Arities
import Data.Derive.Internal.Instance

 
instance (Data d_type) => Arities d_type where
        arities _
          = [const (d_ctorArity d_ctor) (d_ctorValue d_ctor :: d_type) |
             d_ctor <- d_dataCtors (undefined :: d_type)]

-- GENERATED STOP