1 files changed, 18 insertions, 0 deletions
diff --git a/tests/purs/bundle/ObjectShorthand.purs b/tests/purs/bundle/ObjectShorthand.purs
new file mode 100644
index 0000000..6914845
--- /dev/null
+++ b/tests/purs/bundle/ObjectShorthand.purs
@@ -0,0 +1,18 @@
+-- See issue #3741
+module Main (main) where
+
+import Prelude
+import Effect (Effect)
+import Effect.Console (log)
+import Test.Assert (assert')
+
+main :: Effect Unit
+main = do
+  assert' "bar" (bar.foo == 1)
+  assert' "quux" (quux 3 == { baz: 3 })
+  assert' "baz" bazIsEliminated
+  log "Done"
+
+foreign import bar :: { foo :: Int }
+foreign import quux :: forall a. a -> { baz :: a }
+foreign import bazIsEliminated :: Boolean