use maybeToList from Data.Maybe
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Mon, 30 Mar 2015 10:07:42 +0000 (15:37 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Mon, 30 Mar 2015 10:07:42 +0000 (15:37 +0530)
src/FuncTorrent/Metainfo.hs

index 9ff3ce3cb65f49d5bad8e2f43b6b75e0e45df913..216fd2414231d2731376fd50a700d204695f2109 100644 (file)
@@ -12,6 +12,7 @@ module FuncTorrent.Metainfo
 import Prelude hiding (lookup)
 import Data.ByteString.Char8 (ByteString, unpack)
 import Data.Map as M ((!), lookup)
+import Data.Maybe (maybeToList)
 
 import FuncTorrent.Bencode (BVal(..), bstrToString)
 
@@ -71,10 +72,6 @@ mkMetaInfo (Bdict m) = let (Just info') = mkInfo $ m ! "info"
                                         }
 mkMetaInfo _ = Nothing
 
-maybeToList :: Maybe a -> [a]
-maybeToList  Nothing   = []
-maybeToList  (Just x)  = [x]
-
 getAnnounceList :: Maybe BVal -> [String]
 getAnnounceList Nothing = []
 getAnnounceList (Just (Bint _)) = []