git.iko.soy/rowtype-yoga/purescript-yoga-om-layer
on v1.2.0 help sign in
16 lines 498 B history raw
1module Test.Negative.SimpleTypeMismatch where
3import Prelude
4import Effect (Effect)
5import Yoga.Om (Om)
6import Yoga.Om.Layer (OmLayer, makeLayer, runLayer)
8type Database = { query :: String -> Effect (Array String) }
10programLayer :: OmLayer (database :: Database) () ()
11programLayer = makeLayer do
12 pure {}
14-- This should FAIL with TypeEquals error - wrong type for database!
15testSimpleTypeMismatch :: Om _ () _
16testSimpleTypeMismatch = runLayer { database: { query: \q -> "" } } programLayer