diff --git a/llvm-pretty b/llvm-pretty
index d099d5d0..f756e711 160000
--- a/llvm-pretty
+++ b/llvm-pretty
@@ -1 +1 @@
-Subproject commit d099d5d0feab8066bc682f11c8a46c82fb7166b5
+Subproject commit f756e711e2bb22b89b9b1f0a12fda0b41ec9c844
diff --git a/src/Data/LLVM/BitCode/IR/Function.hs b/src/Data/LLVM/BitCode/IR/Function.hs
index c3b0a61c..f2484ff3 100644
--- a/src/Data/LLVM/BitCode/IR/Function.hs
+++ b/src/Data/LLVM/BitCode/IR/Function.hs
@@ -621,7 +621,7 @@ parseFunctionBlockEntry _ t d (fromEntry -> Just r) = case recordCode r of
     aval    <- parseField r ix' numeric
     let align | aval > 0  = Just (bit aval `shiftR` 1)
               | otherwise = Nothing
-    result ret (Load (tv { typedType = PtrTo ret }) Nothing align) d
+    result ret (Load ret tv Nothing align) d
 
   -- 21 is unused
   -- 22 is unused
@@ -825,7 +825,7 @@ parseFunctionBlockEntry _ t d (fromEntry -> Just r) = case recordCode r of
     when (ordval /= Nothing && align == Nothing)
          (fail "Invalid record")
 
-    result ret (Load (tv { typedType = PtrTo ret }) ordval align) d
+    result ret (Load ret tv ordval align) d
 
 
   -- [ptrty, ptr, val, align, vol, ordering, synchscope]