Fix a -Wx-partial warning with GHC 9.8+

GaloisInc · Feb 8, 2024 · 3c19f85 · 3c19f85
1 parent b9d0e77
commit 3c19f85
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Language/Bluespec/Classic/AST/Id.hs b/src/Language/Bluespec/Classic/AST/Id.hs
@@ -146,7 +146,8 @@ mkId pos fs =
 mkQId :: Position -> FString -> FString -> Id
 mkQId pos mfs fs
     | fs == fsEmpty = Id pos fsEmpty fsEmpty []
-    | isDigit (head (getFString fs)) = Id pos fsEmpty fs [] -- XXX
+    | fHead:_ <- getFString fs
+    , isDigit fHead = Id pos fsEmpty fs [] -- XXX
     | otherwise = Id pos mfs fs []
 
 ppConId :: PDetail -> Id -> Doc