trivial Lazy instance for Unit

Author: matthewleon

src/Control/Lazy.purs

@@ -1,6 +1,6 @@
 module Control.Lazy where
 
-import Data.Unit (Unit)
+import Data.Unit (Unit, unit)
 
 -- | The `Lazy` class represents types which allow evaluation of values
 -- | to be _deferred_.
@@ -10,6 +10,9 @@ import Data.Unit (Unit)
 class Lazy l where
   defer :: (Unit -> l) -> l
 
+instance lazyUnit :: Lazy Unit where
+  defer _ = unit
+
 -- | `fix` defines a value as the fixed point of a function.
 -- |
 -- | The `Lazy` instance allows us to generate the result lazily.