diff options
| author | Arianna Masciolini <uzkamascio@gmail.com> | 2025-08-02 19:02:30 +0200 |
|---|---|---|
| committer | Arianna Masciolini <uzkamascio@gmail.com> | 2025-08-02 19:02:30 +0200 |
| commit | 5170668ff27f2149b43d479b5d702124b04c1d98 (patch) | |
| tree | 5f3f85c169ab23f2cbc4cacdabebfbd482fe948c /src/runtime/haskell/Data/Binary/Get.hs | |
| parent | 5776b567a2aa78902bf5e4b40cf0bbb69bdbde9a (diff) | |
| parent | 65e85c5a3cba4df82547a018b4135ac63551d8df (diff) | |
Merge branch 'master' of https://github.com/GrammaticalFramework/gf-core into hleiss/master
Diffstat (limited to 'src/runtime/haskell/Data/Binary/Get.hs')
| -rw-r--r-- | src/runtime/haskell/Data/Binary/Get.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/runtime/haskell/Data/Binary/Get.hs b/src/runtime/haskell/Data/Binary/Get.hs index a33c5c5a3..ec6309fae 100644 --- a/src/runtime/haskell/Data/Binary/Get.hs +++ b/src/runtime/haskell/Data/Binary/Get.hs @@ -127,11 +127,11 @@ instance Functor Get where {-# INLINE fmap #-} instance Applicative Get where - pure = return + pure a = Get (\s -> (a, s)) (<*>) = ap instance Monad Get where - return a = Get (\s -> (a, s)) + return = pure {-# INLINE return #-} m >>= k = Get (\s -> case unGet m s of |