Merge pull request #821 from factisresearch/fix-simplifier

Fix profile build
ndmitchell · Jan 30, 2022 · 84beb23 · 84beb23
2 parents 06ed483 + 8fe4b0c
commit 84beb23
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Development/Shake/Internal/FilePattern.hs b/src/Development/Shake/Internal/FilePattern.hs
@@ -104,7 +104,9 @@ parseLit x = case split (== '*') x of
 
 internalTest :: IO ()
 internalTest = do
-    let x # y = when (parse x /= y) $ fail $ show ("FilePattern.internalTest",x,parse x,y)
+    let x # y =
+            let p = parse x
+            in when (p /= y) $ fail $ show ("FilePattern.internalTest",x,p,y)
     "" # [Lit ""]
     "x" # [Lit "x"]
     "/" # [Lit "",Lit ""]