@@ -4,7 +4,7 @@ import Prelude
44import Control.Comonad (class Comonad , class Extend )
55import Data.DateTime (Date , Time , DateTime )
66import Data.Foldable (class Foldable )
7- import Data.Generic (class Generic )
7+ import Data.Generic.Rep (class Generic )
88import Data.Maybe (Maybe )
99import Data.Newtype (class Newtype )
1010import Data.Time.Duration (Minutes )
@@ -16,7 +16,7 @@ data Locale = Locale (Maybe LocaleName) Minutes
1616
1717derive instance eqLocale :: Eq Locale
1818derive instance ordLocale :: Ord Locale
19- derive instance genericLocale :: Generic Locale
19+ derive instance genericLocale :: Generic Locale _
2020
2121instance showLocale :: Show Locale where
2222 show (Locale name offset) = " (Locale " <> show name <> " " <> show offset <> " )"
@@ -27,7 +27,7 @@ newtype LocaleName = LocaleName String
2727derive instance newtypeLocaleName :: Newtype LocaleName _
2828derive newtype instance eqLocaleName :: Eq LocaleName
2929derive newtype instance ordLocaleName :: Ord LocaleName
30- derive instance genericLocaleName :: Generic LocaleName
30+ derive instance genericLocaleName :: Generic LocaleName _
3131
3232instance showLocaleName :: Show LocaleName where
3333 show (LocaleName name) = " (LocaleName " <> show name <> " )"
@@ -41,7 +41,7 @@ data LocalValue a = LocalValue Locale a
4141
4242derive instance eqLocalValue :: Eq a => Eq (LocalValue a )
4343derive instance ordLocalValue :: Ord a => Ord (LocalValue a )
44- derive instance genericLocalValue :: Generic a => Generic (LocalValue a )
44+ derive instance genericLocalValue :: Generic (LocalValue a ) _
4545
4646instance showLocalValue :: Show a => Show (LocalValue a ) where
4747 show (LocalValue n a) = " (LocalValue " <> show n <> " " <> show a <> " )"
@@ -62,7 +62,7 @@ instance foldableLocalValue :: Foldable LocalValue where
6262
6363instance traversableLocalValue :: Traversable LocalValue where
6464 traverse f (LocalValue n a) = LocalValue <$> pure n <*> f a
65- sequence = traverse id
65+ sequence = traverse identity
6666
6767-- | A date value with a locale.
6868type LocalDate = LocalValue Date
0 commit comments