diff --git a/test/spec/Main.hs b/test/spec/Main.hs
index dc062b051..f02b72e47 100644
--- a/test/spec/Main.hs
+++ b/test/spec/Main.hs
@@ -64,7 +64,7 @@ main :: IO ()
 main = do
   pool <- P.acquire (3, 10, toUtf8 $ configDbUri testCfg)
 
-  actualPgVersion <- either (panic.show) id <$> P.use pool queryPgVersion
+  actualPgVersion <- either (panic . show) id <$> P.use pool queryPgVersion
 
   baseDbStructure <-
     loadDbStructure pool