bergamot/test/Main.purs

module Test.Main where

import Prelude
import Language.Bergamot.Syntax
import Control.Monad.Logic.Trans
import Control.Monad.Logic.Class
import Control.Monad.Unify.Trans
import Control.Monad.Unify.Class
import Data.List
import Data.Maybe

runSomeComputation :: forall m. MonadLogic m => MonadUnify IntVar Expr m => m (Expr IntVar)
runSomeComputation = do
    x1 <- fresh
    x2 <- fresh
    let binPred = Atom "hello" $ fromFoldable [variable x1, variable x2]
    let realBinPred = Atom "hello" $ fromFoldable [Atom "first" $ fromFoldable [], Atom "second" $ fromFoldable []]
    unify binPred realBinPred
    (unify (variable x1) (variable x2) >>= const (reify (variable x1))) `interleave` (unify (variable x1) (variable x1) >>= const (reify (variable x2)))
    

main :: Maybe (Expr IntVar)
main = runUnifier runSomeComputation