d0a221f · project-m36 · git.iko.soy

src/bin/TutorialD/Interpreter/Base.hs−1

@@ -17,7 +17,6 @@ import System.IO

17import ProjectM36.Relation.Show.Term

18import GHC.Generics

19import Data.Monoid

20−import Control.Monad (void)

21import qualified Data.UUID as U

20import qualified Data.UUID as U

22import Control.Monad.Random

21import Control.Monad.Random

23import Data.List.NonEmpty as NE

22import Data.List.NonEmpty as NE

test/TransactionGraph/Automerge.hs+1−1

@@ -25,7 +25,7 @@ checkEither :: IO (Either RelationalError a) -> IO a

25checkEither io = do

26 ret <- io

27 case ret of

28− Left err -> assertFailure (show err)

28+ Left err -> assertFailure (show err) >> undefined

29 Right a -> pure a

30

31testAutomergeSuccess :: Test

test/TutorialD/Interpreter.hs+1

@@ -28,6 +28,7 @@ import qualified Data.Set as S

28import Data.Text hiding (map)

29import qualified Data.Text as T

30import Data.Time.Clock.POSIX

31+import Data.Time.Clock

31

32

32main :: IO ()

33main :: IO ()

33main = do

34main = do