Move the instances section header below the classes.

src/Data/Abstract/Value.hs

@@ -76,8 +76,6 @@ type family LocationFor value :: * where
   LocationFor Type.Type = Monovariant
 
 
--- Instances
-
 class ValueRoots l v | v -> l where
   valueRoots :: v -> Live l v
 
@@ -87,6 +85,9 @@ class AbstractValue v where
   boolean :: Bool -> v
   string :: ByteString -> v
 
+
+-- Instances
+
 instance (FreeVariables term, Ord location) => ValueRoots location (Value location term) where
   valueRoots v
     | Just (Closure names body env) <- prj v = envRoots env (foldr Set.delete (freeVariables body) names)