Commits

FlorianHartwig  committed c223acf

Remove minor stupidity

  • Participants
  • Parent commits e64c893

Comments (0)

Files changed (1)

File src/Data/AttoBencode/Types.hs

     fromBencode _         = Nothing
 
 instance (FromBencode a) => FromBencode [a] where
-    fromBencode (BList l) = sequence $ map fromBencode l
+    fromBencode (BList l) = mapM fromBencode l
     fromBencode _         = Nothing
 
 -- | Look up the value corresponding to a (ByteString) key from a dictionary.