@@ -511,7 +511,7 @@ cgExpr (SCon _ tag name args) = do
511 ptrI8 <- inst $ BitCast con (PointerType (IntegerType 8) (AddrSpace 0)) []
511 ptrI8 <- inst $ BitCast con (PointerType (IntegerType 8) (AddrSpace 0)) []
512 inst' $ simpleCall "llvm.invariant.start" [ConstantOperand $ C.Int 64 (-1), ptrI8]
512 inst' $ simpleCall "llvm.invariant.start" [ConstantOperand $ C.Int 64 (-1), ptrI8]
513 Just <$> inst (BitCast con (PointerType valueType (AddrSpace 0)) [])
513 Just <$> inst (BitCast con (PointerType valueType (AddrSpace 0)) [])
514−cgExpr (SCase inspect alts) = do
514+cgExpr (SCase _ inspect alts) = do
515 val <- var inspect
515 val <- var inspect
516 case val of
516 case val of
517 Nothing -> return Nothing
517 Nothing -> return Nothing