set up initial project, ready to work

amaranth.cabal

@@ -25,6 +25,7 @@ source-repository head
 
 library
   exposed-modules:
+      Canvas
       Lib
   other-modules:
       Paths_amaranth

app/Main.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import Lib
+import Lib as L
 
 main :: IO ()
-main = someFunc
+main = L.app

src/Canvas.hs

@@ -0,0 +1,22 @@
+module Canvas where
+
+import Graphics.Gloss.Data.Picture ( Picture, pictures )
+import Graphics.Gloss.Interface.IO.Interact ( Event )
+
+newtype Canvas = Canvas {
+    items ::    [Picture]
+}
+
+initial :: Canvas
+initial = Canvas {
+    items =     []
+}
+
+render :: Canvas -> Picture
+render canvas = pictures ( items canvas ) 
+
+handle :: Event -> Canvas -> Canvas
+handle _ _ = initial
+
+update :: Float -> Canvas -> Canvas
+update _ _ = initial 

src/Lib.hs

@@ -1,6 +1,14 @@
-module Lib
+module Lib where
-    ( someFunc
-    ) where
 
-someFunc :: IO ()
+import Graphics.Gloss
-someFunc = putStrLn "someFunc"
+import Canvas as C
+
+-- Variables 
+display :: Display
+display = InWindow "Amaranth" (500, 500) (0,0)
+
+background :: Color 
+background = white
+
+app :: IO ()
+app = play Lib.display background 60 C.initial C.render C.handle C.update