summaryrefslogtreecommitdiffstats
path: root/src/Graphics
diff options
context:
space:
mode:
Diffstat (limited to 'src/Graphics')
-rw-r--r--src/Graphics/X11/Xlib/Aeson.hs24
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"