Change return to pure in PVBUMP.

IntersectMBO · Jun 25, 2019 · 88b657e · 88b657e
1 parent 89924fd
commit 88b657e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/byron/ledger/executable-spec/src/Ledger/Update.hs b/byron/ledger/executable-spec/src/Ledger/Update.hs
@@ -1387,10 +1387,10 @@ instance STS PVBUMP where
                 Nothing -> []
                 Just s  -> filter ((<= s) . fst) fads
         if r == []
-          then return $! (pv, pps)
+          then pure $! (pv, pps)
           else do
             let (_, (pv_c, pps_c)) = last r
-            return $! (pv_c, pps_c)
+            pure $! (pv_c, pps_c)
     ]
 
 data UPIEC