Fix profile build

ndmitchell · Jan 24, 2022 · 8fe4b0c · 8fe4b0c
1 parent 6bb5a7e
commit 8fe4b0c
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 ""]