1
1
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00

Define compilation of Either.

This commit is contained in:
Rob Rix 2019-06-11 12:08:52 -04:00
parent 37cab16c95
commit f09b3614d6
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7

View File

@ -14,3 +14,6 @@ class Compile t where
instance Compile Py.Module where
compile (Module Nothing) = pure Unit
compile (Module (Just _)) = pure Unit
instance (Compile l, Compile r) => Compile (Either l r) where
compile = either compile compile