Remove consumable records

src/Dodge/Data/UseCondition.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE StrictData #-}
-module Dodge.Data.UseCondition
-    where
+module Dodge.Data.UseCondition where
 
 data UseCondition
     = UseableWhenAimed
@@ -9,4 +8,7 @@ data UseCondition
     | NeverUsable
     deriving (Eq, Show, Read)
 
-
+data UseFocus
+    = UseFromRoot
+    | UseFromLocation
+    deriving (Eq, Show, Read)