Commits

Aleksey Khudyakov  committed 07398e9

Missing instances for MaybeBin

  • Participants
  • Parent commits 6846c1b

Comments (0)

Files changed (1)

File Data/Histogram/Bin/MaybeBin.hs

+{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 module Data.Histogram.Bin.MaybeBin (
   ) where
 
 import Control.Monad   (liftM)
+import Data.Typeable   (Typeable)
 import Text.Read       (Read(..))
 
 import Data.Histogram.Bin.Classes
 
 -- | This binning algorithms adds special case of no value.
 newtype MaybeBin bin = MaybeBin bin
-                       deriving (BinEq)
+                       deriving (BinEq,Eq,Typeable)
 
 instance Bin bin => Bin (MaybeBin bin) where
   type BinValue (MaybeBin bin) = Maybe (BinValue bin)