First pass at merit function

2022-10-10 11:46:27 +02:00
parent a80a7f749e
commit a61f15df44
5 changed files with 32 additions and 6 deletions
--- a/lib/Petzval/Internal/Vec.hs
+++ b/lib/Petzval/Internal/Vec.hs
@@ -25,7 +25,7 @@ class VConcat (v1 :: * -> *) (v2 :: * -> *) where
  type VConcated v1 v2 :: * -> *
  vconcat :: v1 a -> v2 a -> (VConcated v1 v2) a

-instance {-# OVERLAPPED #-}  VConcat V0 v where
+instance VConcat V0 v where
  type VConcated V0 v = v
  vconcat V0 v = v