initHEAD1.0.0master

1 files changed, 24 insertions, 0 deletions

diff --git a/src/Graphics/X11/Xlib/Aeson.hs b/src/Graphics/X11/Xlib/Aeson.hs
new file mode 100644
index 0000000..62887ac
--- /dev/null
+++ b/src/Graphics/X11/Xlib/Aeson.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+module Graphics.X11.Xlib.Aeson () where
+
+import Data.Aeson
+import Graphics.X11.Xlib.Types
+
+
+instance ToJSON Rectangle where
+    toJSON Rectangle{..} =
+          object
+            [ "x" .= toJSON rect_x
+            , "y" .= toJSON rect_y
+            , "width" .= toJSON rect_width
+            , "height" .= toJSON rect_height
+            ]
+
+instance FromJSON Rectangle where
+    parseJSON = withObject "Rectangle" $ \v -> Rectangle
+      <$> v .: "x"
+      <*> v .: "y"
+      <*> v .: "width"
+      <*> v .: "height"