e75145b..master · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

on master help sign in

src/Database/PostgreSQL/Simple/Newtypes.hs+1−2

@@ -1,6 +1,5 @@

1{-# LANGUAGE DeriveFunctor #-}

2{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE GeneralisedNewtypeDeriving #-}

4-- | Module with newtypes suitable to usage with @DerivingVia@ or standalone.

3-- | Module with newtypes suitable to usage with @DerivingVia@ or standalone.

5--

4--

6-- The newtypes are named after packages they wrap.

5-- The newtypes are named after packages they wrap.

@@ -38,7 +37,7 @@ import qualified Data.Aeson as Aeson

38--

37--

39-- @since 0.6.3

38-- @since 0.6.3

40newtype Aeson a = Aeson a

39newtype Aeson a = Aeson a

41− deriving (Eq, Ord, Show, Read, Typeable, Functor, Aeson.FromJSON, Aeson.ToJSON)

40+ deriving (Eq, Show, Read, Typeable, Functor)

43getAeson :: Aeson a -> a

42getAeson :: Aeson a -> a

44getAeson (Aeson a) = a

43getAeson (Aeson a) = a