support data-default-0.8.0.0

src/Pact/Bench.hs

@@ -285,7 +285,7 @@ main :: IO ()
 main = do
   -- uncomment below to see if "-N" is working, important for file perf log
   -- print =<< getNumCapabilities
-  !fperf <- if doPerf /= None then mkFilePerf "pact-bench-perf" else def
+  !fperf <- if doPerf /= None then mkFilePerf "pact-bench-perf" else (pure def)
   let !dbPerf = if doPerf == Db || doPerf == All then fperf else def
       !interpPerf = if doPerf == Interp || doPerf == All then fperf else def
   !pub <- eitherDie "pub" $ parseB16TextOnly pk

src/Pact/Runtime/Utils.hs

@@ -146,7 +146,7 @@ stripTermInfo = stripTerm' stripNameInfo
   stripArgInfo f (Arg an argtyp _info) =
     Arg an (stripTypeInfo f argtyp) def
   stripMetaInfo (Meta docs model) =
-    Meta docs (fmap def <$> model)
+    Meta docs (fmap (const def) <$> model)
   stripAppInfo f (App af args _info) =
     App (stripTerm' f af) (stripTerm' f <$> args) def
   stripStepInfo f = \case