From c23f595325de2d2a5963d4811cbde5919c4d02e9 Mon Sep 17 00:00:00 2001
From: Matthew Naylor <mn416@cam.ac.uk>
Date: Wed, 3 Nov 2021 12:08:58 +0000
Subject: [PATCH] Dot syntax

---
 Haskell/Blarney/VendorIP/StreamClockCrosser.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Haskell/Blarney/VendorIP/StreamClockCrosser.hs b/Haskell/Blarney/VendorIP/StreamClockCrosser.hs
index 9dab99b..130a8f9 100644
--- a/Haskell/Blarney/VendorIP/StreamClockCrosser.hs
+++ b/Haskell/Blarney/VendorIP/StreamClockCrosser.hs
@@ -110,7 +110,7 @@ makeStreamClockCrosser
         , crossClkOut = clkOut
         , crossRstOut = rstOut
         , crossValidIn = streamIn.canPeek
-        , crossDataIn = streamIn.peek.pack
+        , crossDataIn = pack streamIn.peek
         , crossReadyOut = consumeWire.val
         }
 
@@ -122,5 +122,5 @@ makeStreamClockCrosser
     Source {
       consume = do consumeWire <== true
     , canPeek = outStream.crossValidOut
-    , peek = outStream.crossDataOut.unpack
+    , peek = unpack outStream.crossDataOut
     }