[CSL-585] Fix for attributes, fixed

input-output-hk · Jan 15, 2017 · 7054661 · 7054661
1 parent 470b8e0
commit 7054661
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Pos/Data/Attributes.hs b/src/Pos/Data/Attributes.hs
@@ -78,8 +78,8 @@ getAttributes keyGetMapper (fromIntegral -> maxLen) initData = do
        fail $ "Attributes: wrong totalLen " ++ show totalLen
                    ++ " (maxLen=" ++ show maxLen ++ ")"
     read1 <- G.bytesRead
-    let cond = orM [ G.isEmpty
-                   , (\r -> r - read1 >= totalLen) <$> G.bytesRead ]
+    let cond = orM [ (\r -> r - read1 >= totalLen) <$> G.bytesRead
+                   , G.isEmpty]
         readWhileKnown dat = ifM cond (return dat) $ do
             key <- G.lookAhead getWord8
             case keyGetMapper key dat of