From f49a12e537bcb3a13c7257d1cc6028694ca5c273 Mon Sep 17 00:00:00 2001
From: Dominic Orchard <dom.orchard@gmail.com>
Date: Thu, 12 Sep 2024 10:35:18 +0100
Subject: [PATCH] tidy

---
 src/Language/Fortran/Analysis/DataFlow.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/Language/Fortran/Analysis/DataFlow.hs b/src/Language/Fortran/Analysis/DataFlow.hs
index b644c25e..19fa58d4 100644
--- a/src/Language/Fortran/Analysis/DataFlow.hs
+++ b/src/Language/Fortran/Analysis/DataFlow.hs
@@ -425,10 +425,7 @@ genConstExpMap pf = ceMap
         -- changes to support that
         case Repr.runEvalFValuePure pvMap (Repr.evalExpr e) of
           Left _err -> Nothing
-          Right (a, _msgs) ->
-            case e of
-              ExpValue _ _ (ValVariable{}) -> Just a
-              _ -> Just a
+          Right (a, _msgs) -> Just a
 
 -- | Get constant-expression information and put it into the AST
 -- analysis annotation. Must occur after analyseBBlocks.