Use PreferHash as default GenerateHashStrategy

This will change to PreferNoHash with 0.34.0.
sol · May 14, 2020 · e2b1498 · e2b1498
1 parent 8aebc12
commit e2b1498
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Hpack.hs b/src/Hpack.hs
@@ -100,7 +100,7 @@ getOptions defaultPackageConfig args = do
       let generateHash = case hash of
             Just True -> ForceHash
             Just False -> ForceNoHash
-            Nothing -> PreferNoHash
+            Nothing -> PreferHash
       return $ Just (verbose, Options defaultDecodeOptions {decodeOptionsTarget = file} force generateHash toStdout)
     ParseError -> do
       printHelp
@@ -120,7 +120,7 @@ hpack :: Verbose -> Options -> IO ()
 hpack verbose options = hpackResult options >>= printResult verbose
 
 defaultOptions :: Options
-defaultOptions = Options defaultDecodeOptions NoForce PreferNoHash False
+defaultOptions = Options defaultDecodeOptions NoForce PreferHash False
 
 setTarget :: FilePath -> Options -> Options
 setTarget target options@Options{..} =