Merge pull request #45 from tslawler/patch-1

Add `Generic a => Generic (Identity a)` instance

Author: garyb

bower.json

@@ -22,6 +22,7 @@
   "dependencies": {
     "purescript-arrays": "^3.0.0",
     "purescript-either": "^2.0.0",
+    "purescript-identity": "^2.0.0",
     "purescript-proxy": "^1.0.0",
     "purescript-strings": "^2.0.0"
   },

src/Data/Generic.purs

@@ -19,6 +19,7 @@ import Prelude
 import Data.Array (null, length, sortBy, zipWith)
 import Data.Either (Either(..))
 import Data.Foldable (all, and, find, fold, intercalate)
+import Data.Identity (Identity(..))
 import Data.Maybe (Maybe(..))
 import Data.NonEmpty (NonEmpty(..))
 import Data.String (joinWith)
@@ -148,6 +149,21 @@ instance genericEither :: (Generic a, Generic b) => Generic (Either a b) where
   fromSpine (SProd "Data.Either.Right" [x]) = Right <$> fromSpine (force x)
   fromSpine _ = Nothing
 
+instance genericIdentity :: (Generic a) => Generic (Identity a) where
+  toSpine (Identity a) = SProd "Data.Identity.Identity" [\_ -> toSpine a]
+  toSignature x =
+    SigProd
+      "Data.Identity.Identity"
+      [ { sigConstructor: "Data.Identity.Identity"
+        , sigValues: [\_ -> toSignature (iproxy x)]
+        }
+      ]
+    where
+    iproxy :: Proxy (Identity a) -> Proxy a
+    iproxy _ = Proxy
+  fromSpine (SProd "Data.Identity.Identity" [x]) = Identity <$> fromSpine (force x)
+  fromSpine _ = Nothing
+
 instance genericOrdering :: Generic Ordering where
   toSpine = case _ of
     LT -> SProd "Data.Ordering.LT" []