geometry/Main.hs

module Main where

import UserInterface
import Data.IORef

import Test.QuickCheck
import Queries

main :: IO ()
main = do
    putStrLn "Hello, Haskell!"
    ctx <- newIORef emptyDC
    mainGUI ctx
    -- quickCheck prop