merging with affection-examples

affection.cabal

@@ -23,6 +23,13 @@ build-type:          Simple
 
 cabal-version:       >=1.10
 
+source-repository head
+  type:     git
+  location: https://github.com/nek0/affection
+
+flag examples
+  description:       Build example programs
+  default:           False
 
 library
   exposed-modules:     Affection
@@ -50,6 +57,26 @@ library
                      , gegl
                      -- , sdl2-image
 
-source-repository head
-  type:     git
-  location: https://github.com/nek0/affection
+executable example00
+  hs-source-dirs:    examples
+  main-is:           example00.hs
+  ghc-options:       -threaded -Wall
+  default-language:  Haskell2010
+  default-extensions: OverloadedStrings
+  if flag(examples)
+    build-depends:     base
+                     , affection
+  else
+    buildable:       False
+
+executable example01
+  hs-source-dirs:    examples
+  main-is:           example01.hs
+  ghc-options:       -threaded -Wall
+  default-language:  Haskell2010
+  default-extensions: OverloadedStrings
+  if flag(examples)
+    build-depends:     base
+                     , affection
+  else
+    buildable:       False

examples/example00.hs

@@ -0,0 +1,10 @@
+import Affection
+import Affection.Render
+
+main :: IO ()
+main = withAllAffection $
+  withDefaultWindow "test" $ do
+    changeColor $ RGBA 255 255 255 255
+    clear
+    present
+    liftIO $ delaySec 2

examples/example01.hs

@@ -0,0 +1,9 @@
+import Affection
+
+main :: IO ()
+main = withAllAffection $
+  withDefaultWindow "test" $ do
+    changeColor $ RGBA 255 255 255 255
+    clear
+    present
+    liftIO $ delaySec 2