diff --git a/affection.cabal b/affection.cabal index 99db33f..866123f 100644 --- a/affection.cabal +++ b/affection.cabal @@ -89,95 +89,95 @@ library -- , mtl -- 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 - , sdl2 - , gegl - , babl - , containers - , mtl - else - buildable: False - -executable example02 - hs-source-dirs: examples - main-is: example02.hs - ghc-options: -threaded -Wall - default-language: Haskell2010 - default-extensions: OverloadedStrings - if flag(examples) - build-depends: base - , affection - , sdl2 - , gegl - , babl - , containers - , mtl - , monad-parallel - else - buildable: False - -executable example02.1 - hs-source-dirs: examples - main-is: example02.1.hs - ghc-options: -threaded -Wall - default-language: Haskell2010 - default-extensions: OverloadedStrings - if flag(examples) - build-depends: base - , affection - , sdl2 - , gegl - , babl - , containers - , mtl - else - buildable: False - -executable example03 - hs-source-dirs: examples - main-is: example03.hs - ghc-options: -threaded -Wall -auto-all -caf-all -rtsopts - default-language: Haskell2010 - default-extensions: OverloadedStrings - if flag(examples) - build-depends: base - , affection - , sdl2 - , gegl - , babl - , containers - , mtl - , random - else - buildable: False - -executable example04 - hs-source-dirs: examples - main-is: example04.hs - ghc-options: -threaded -Wall -auto-all -caf-all -rtsopts - default-language: Haskell2010 - default-extensions: OverloadedStrings - if flag(examples) - build-depends: base - , affection - , sdl2 - , gegl - , babl - , containers - , mtl - , random - , monad-parallel - 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 +-- , sdl2 +-- , gegl +-- , babl +-- , containers +-- , mtl +-- else +-- buildable: False +-- +-- executable example02 +-- hs-source-dirs: examples +-- main-is: example02.hs +-- ghc-options: -threaded -Wall +-- default-language: Haskell2010 +-- default-extensions: OverloadedStrings +-- if flag(examples) +-- build-depends: base +-- , affection +-- , sdl2 +-- , gegl +-- , babl +-- , containers +-- , mtl +-- , monad-parallel +-- else +-- buildable: False +-- +-- executable example02.1 +-- hs-source-dirs: examples +-- main-is: example02.1.hs +-- ghc-options: -threaded -Wall +-- default-language: Haskell2010 +-- default-extensions: OverloadedStrings +-- if flag(examples) +-- build-depends: base +-- , affection +-- , sdl2 +-- , gegl +-- , babl +-- , containers +-- , mtl +-- else +-- buildable: False +-- +-- executable example03 +-- hs-source-dirs: examples +-- main-is: example03.hs +-- ghc-options: -threaded -Wall -auto-all -caf-all -rtsopts +-- default-language: Haskell2010 +-- default-extensions: OverloadedStrings +-- if flag(examples) +-- build-depends: base +-- , affection +-- , sdl2 +-- , gegl +-- , babl +-- , containers +-- , mtl +-- , random +-- else +-- buildable: False +-- +-- executable example04 +-- hs-source-dirs: examples +-- main-is: example04.hs +-- ghc-options: -threaded -Wall -auto-all -caf-all -rtsopts +-- default-language: Haskell2010 +-- default-extensions: OverloadedStrings +-- if flag(examples) +-- build-depends: base +-- , affection +-- , sdl2 +-- , gegl +-- , babl +-- , containers +-- , mtl +-- , random +-- , monad-parallel +-- else +-- buildable: False executable example05 hs-source-dirs: examples diff --git a/examples/example05.hs b/examples/example05.hs index b30b28f..e95f660 100644 --- a/examples/example05.hs +++ b/examples/example05.hs @@ -119,7 +119,7 @@ load = do map (\p -> ActorProperty { apName = G.propertyName p , apValue = G.propertyValue p - , apMapping = Just "rect" + , apMapping = Just ("rect", "color") }) tempProps traceIO $ show index return $ HM.insert index Actor