Some very minor changes for consistency

This commit is contained in:
John Wiegley 2019-03-17 16:54:59 -07:00
parent 082a6ddcef
commit 3881101ebd
No known key found for this signature in database
GPG key ID: C144D8F4F19FE630

View file

@ -381,14 +381,14 @@ builtin
=> String
-> (m (NValue t f m) -> m (NValue t f m))
-> m (NValue t f m)
builtin name f = return $ nvBuiltin name $ thunk . f
builtin name f = return $ nvBuiltin name $ \a -> thunk $ f a
builtin2
:: (MonadThunk t m (NValue t f m), MonadDataContext f m)
=> String
-> (m (NValue t f m) -> m (NValue t f m) -> m (NValue t f m))
-> m (NValue t f m)
builtin2 name f = builtin name (builtin name . f)
builtin2 name f = builtin name $ \a -> builtin name $ \b -> f a b
builtin3
:: (MonadThunk t m (NValue t f m), MonadDataContext f m)