From c0a70a62513baf2b437db4ebe3e5a32e3cfa5905 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 23 Feb 2021 21:48:55 +0100
Subject: init

---
 X11-aeson.cabal                | 15 +++++++++++++++
 src/Graphics/X11/Xlib/Aeson.hs | 24 ++++++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 X11-aeson.cabal
 create mode 100644 src/Graphics/X11/Xlib/Aeson.hs

diff --git a/X11-aeson.cabal b/X11-aeson.cabal
new file mode 100644
index 0000000..28876df
--- /dev/null
+++ b/X11-aeson.cabal
@@ -0,0 +1,15 @@
+name: X11-aeson
+version: 1.0.0
+license: MIT
+author: tv
+maintainer: tv@krebsco.de
+build-type: Simple
+cabal-version: >=1.2
+
+library
+  build-depends: base
+               , aeson
+               , X11
+  exposed-modules: Graphics.X11.Xlib.Aeson
+  ghc-options: -O2 -Wall
+  hs-source-dirs: src
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"
-- 
cgit v1.2.3