@@ -1,24 +0,0 @@
1−module Main where
2−
3−import Prelude
4−
5−import Control.Monad.Aff as Aff
6−import Control.Monad.Eff(kind Effect, Eff)
7−import Control.Monad.Eff.Console as Console
8−import Control.Monad.Eff.Console(CONSOLE)
9−import Control.Monad.Eff.Exception(EXCEPTION, catchException)
10−import Data.Maybe(Maybe(..))
11−import Data.Either(Either(..))
12−
13−import Core
14−import IDBDatabase as IDBDatabase
15−
16−
17−main :: Eff (exception :: EXCEPTION, idb :: INDEXED_DB, console :: CONSOLE) Unit
18−main = do
19− _ <- Aff.runAff (show >>> Console.log) (IDBDatabase.name >>> Console.log) $ IDBDatabase.open "myDatabase" Nothing
20− { onBlocked : Nothing
21− , onUpgradeNeeded : Nothing
22− }
23−
24− pure unit