diff --git a/qbar/src/QBar/BlockOutput.hs b/qbar/src/QBar/BlockOutput.hs
index 26bdec8d96614078a8582d611fa223716e907025..f1ece12691d21c79a2688c20a6ee84c9bc117ec3 100644
--- a/qbar/src/QBar/BlockOutput.hs
+++ b/qbar/src/QBar/BlockOutput.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -Wno-partial-fields #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module QBar.BlockOutput (
diff --git a/qbar/src/QBar/Qubes/AdminAPI.hs b/qbar/src/QBar/Qubes/AdminAPI.hs
index 013b6813386bb4b09b35d583d181cb2c0067f72b..958aea54d1c7772df18dba02f4cffe1b969ec2c1 100644
--- a/qbar/src/QBar/Qubes/AdminAPI.hs
+++ b/qbar/src/QBar/Qubes/AdminAPI.hs
@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-partial-fields #-}
+
 module QBar.Qubes.AdminAPI (
   QubesPropertyInfo(..),
   QubesVMInfo(..),