fixed building problem

Author: Anton Pirogov

Main.hs renamed to example/Main.hs

@@ -12,7 +12,7 @@ import SDL.Cairo.Canvas
 
 main :: IO ()
 main = do
-  initializeAll
+  initialize [InitEverything]
   window <- createWindow "SDL2 Cairo Canvas" defaultWindow
   renderer <- createRenderer window (-1) defaultRenderer
 

sdl2-cairo.cabal

@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                sdl2-cairo
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Binding to render with Cairo on SDL textures
                      and optional convenience drawing API.
 description:         This small library provides convenience functions to draw
@@ -21,6 +21,7 @@ build-type:          Simple
 cabal-version:       >=1.10
 
 library
+  hs-source-dirs:      src
   default-language:    Haskell2010
   exposed-modules:     SDL.Cairo, SDL.Cairo.Canvas, SDL.Cairo.Canvas.Interactive
   --other-modules:
@@ -32,18 +33,26 @@ library
                      , random
                      , time
 
+flag builddemo
+  description:       Build the little demo
+  default:           False
+
 executable sdl2-cairo-test
-  ghc-options:        -fPIC
+  hs-source-dirs:      example
+  main-is:             Main.hs
   default-language:    Haskell2010
   default-extensions:  OverloadedStrings
-  main-is:             Main.hs
-  build-depends:       base >=4 && <=5
-                     , sdl2 >=2.0.0
+  if flag(builddemo)
+    build-depends:     base >=4 && <=5
+                     , sdl2 >=2.0.0 && <2.1
                      , cairo >=0.13
+                     , sdl2-cairo
                      , linear
                      , mtl
                      , random
                      , time
+  else
+    buildable:         False
 
 source-repository head
   type:     git

SDL/Cairo.hs renamed to src/SDL/Cairo.hs

@@ -22,7 +22,7 @@ trivial to port to the Canvas API. Example:
 >
 >main :: IO ()
 >main = do
->  initializeAll
+>  initialize [InitEverything]
 >  window <- createWindow "SDL2 Cairo Canvas" defaultWindow
 >  renderer <- createRenderer window (-1) defaultRenderer
 >  texture <- createCairoTexture' renderer window

SDL/Cairo/Canvas.hs renamed to src/SDL/Cairo/Canvas.hs

@@ -21,7 +21,7 @@ import SDL.Cairo.Canvas (Canvas, withCanvas)
 -- forks a rendering loop and returns a function to draw in this window.
 getInteractive :: IO (Canvas () -> IO ())
 getInteractive = do
-  initializeAll
+  initialize [InitEverything]
   w <- createWindow "SDL2 Cairo Canvas Interactive" defaultWindow
   r <- createRenderer w (-1) defaultRenderer
   t <- createCairoTexture' r w