debugging

penguinland · Sep 21, 2024 · 7e67ba7 · 7e67ba7
1 parent 28e0f59
commit 7e67ba7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Bids/Lebensohl.hs b/src/Bids/Lebensohl.hs
@@ -106,6 +106,7 @@ primarySuit_ T.Spades = do
     T.Spades `atLeastAsLong` T.Clubs
     T.Spades `atLeastAsLong` T.Diamonds
     T.Spades `atLeastAsLong` T.Hearts
+primarySuit_ T.Notrump = error "notrump is not a primary suit"
 
 
 gfWithSuit_ :: T.Suit -> T.Suit -> Action