Fix warning: -Wx-partial

Author: alexfmpe

cabal2nix/hackage2nix/HackageGit.hs

@@ -11,6 +11,7 @@ import Control.Lens hiding ( (<.>) )
 import Control.Monad
 import Data.Aeson
 import qualified Data.ByteString.Char8 as BS
+import qualified Data.List as List
 import Data.Map as Map
 import Data.Set as Set
 import Data.String
@@ -38,7 +39,7 @@ readHackage path = getSubDirs path >>= foldM discoverPackageVersions mempty
 getSubDirs :: FilePath -> IO [FilePath]
 getSubDirs path = do
   let isDirectory p = doesDirectoryExist (path </> p)
-  getDirectoryContents path >>= filterM isDirectory . Prelude.filter (\x -> head x /= '.')
+  getDirectoryContents path >>= filterM isDirectory . Prelude.filter (not . List.isPrefixOf ".")
 
 type SHA256Hash = String
 

cabal2nix/src/Distribution/Nixpkgs/Fetch.hs

@@ -258,12 +258,12 @@ fetchWith (supportsRev, kind) source = do
                        []     -> error "This can't happen, but GHC doesn't know that."
                        (x:xs) -> (x,xs)
             buf'   = BS.unlines (reverse ls)
-        case length ls of
-          0 -> return Nothing
-          1 -> return (Just (DerivationSource { derivKind = Just kind
+        case ls of
+          [] -> return Nothing
+          [hash] -> return (Just (DerivationSource { derivKind = Just kind
                                               , derivUrl = sourceUrl source
                                               , derivRevision = ""
-                                              , derivHash = BS.unpack (head ls)
+                                              , derivHash = BS.unpack hash
                                               , derivSubmodule = Nothing
                                               }
                             , BS.unpack l))