added BlockType so you can set type=bottom|top|double

Minecraft/Command.hs

@@ -30,10 +30,12 @@ data OldBlockHandling
 
 data DataValue
   = Facing CardinalDirection
+  | BlockType BlockType
     deriving (Eq, Ord, Read, Show)
 
 instance Render DataValue where
   render (Facing dir) = "facing=" <> render dir
+  render (BlockType bt) = "type=" <> render bt
 
 instance Render [DataValue] where
   render [] = mempty

Minecraft/Core.hs

@@ -449,12 +449,25 @@ data CardinalDirection
     deriving (Eq, Ord, Read, Show)
 makeLenses ''CardinalDirection
 
+data BlockType
+  = Bottom
+  | Double
+  | Top
+    deriving (Eq, Ord, Read, Show)
+makeLenses ''BlockType
+
 instance Render CardinalDirection where
   render North = "north"
   render East  = "east"
   render South = "south"
   render West  = "west"
 
+instance Render BlockType where
+  render Bottom = "bottom"
+  render Double = "double"
+  render Top    = "top"
+
+
 ab :: Int32 -> Pos
 ab = Pos Abs
 

minecraft-data.cabal

@@ -27,7 +27,7 @@ library
                        Minecraft.Player
   other-extensions:    DeriveDataTypeable, DeriveGeneric, OverloadedStrings
   build-depends:       array,
-                       base >=4.8 && <4.15,
+                       base >=4.8 && <4.16,
                        bimap,
                        bytestring,
                        containers,