Swap guard cases

haskell · Oct 27, 2020 · d36d5a3 · d36d5a3
1 parent 001184b
commit d36d5a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/ByteString/Internal.hs b/Data/ByteString/Internal.hs
@@ -654,8 +654,8 @@ times :: Integral a => a -> ByteString -> ByteString
 times n (BS fp len)
   | n < 0 = error "stimes: non-negative multiplier expected"
   | n == 0 = mempty
-  | len == 0 = mempty
   | n == 1 = BS fp len
+  | len == 0 = mempty
   | len == 1 = unsafeCreate size $ \destptr ->
     withForeignPtr fp $ \p -> do
       byte <- peek p