the if is actually unnecessary

2020-07-22 16:55:21 +02:00
parent 7229033e42
commit 0cee82f715
1 changed files with 1 additions and 3 deletions
--- a/src/runtime/haskell-bind/PGF2.hsc
+++ b/src/runtime/haskell-bind/PGF2.hsc
@@ -1266,9 +1266,7 @@ withBracketLinFuncs ref exn f =
        then writeIORef ref (stack, bs')
        else do cat <- peekUtf8CString c_cat
                let fid    = fromIntegral c_fid
-                ann <- if c_ann == nullPtr
-                         then return ""
-                         else peekUtf8CString c_ann
+                ann <- peekUtf8CString c_ann
                fun <- peekUtf8CString c_fun
                writeIORef ref (stack, Bracket cat fid ann fun (reverse bs) : bs')