fix incomplete-uni-patterns warnings (#1176)

* fix `incomplete-uni-patterns` warning, ignore some others

the `flake.nix` build fails on these warnings: #1154

* ignore `incomplete-uni-patterns` warning

Author: peterbecich

exes/Main.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns #-}
 module Main where
 
 import qualified Distribution.Server as Server

src/Distribution/Server/Features/AdminFrontend.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
+{-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns #-}
 {-# LANGUAGE NamedFieldPuns, RecordWildCards #-}
 module Distribution.Server.Features.AdminFrontend (
     initAdminFrontendFeature
@@ -190,7 +191,8 @@ adminFrontendFeature _env templates
         ok $ toResponse $ template
           [ "resets" $= [ resetRequestToTemplate resetInfo uinfo
                         | resetInfo@ResetInfo {resetUserId} <- allResetInfo
-                        , let Just uinfo = Users.lookupUserId resetUserId usersdb ]
+                        , let Just uinfo = Users.lookupUserId resetUserId usersdb
+                        ]
           ]
 
     serveAdminLegacyGet :: DynamicPath -> ServerPartE Response
@@ -203,7 +205,8 @@ adminFrontendFeature _env templates
         ok $ toResponse $ template
           [ "accounts" $= [ accountBasicInfoToTemplate uid uinfo
                           | uid <- legacyUsers
-                          , let Just uinfo = Users.lookupUserId uid usersdb ]
+                          , let Just uinfo = Users.lookupUserId uid usersdb
+                          ]
           ]
 
     resetRequestToTemplate :: SignupResetInfo -> UserInfo -> TemplateVal

src/Distribution/Server/Features/UserSignup.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns #-}
 {-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving,
              TypeFamilies, TemplateHaskell,
              RankNTypes, NamedFieldPuns, RecordWildCards, BangPatterns #-}