distribution-opensuse 1.1.3 → 1.1.4
raw patch · 2 files changed
+6/−5 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- OpenSuse.Prelude.PrettyPrinting.Orphans: instance Text.PrettyPrint.HughesPJClass.Pretty GHC.Natural.Natural
+ OpenSuse.Prelude.PrettyPrinting.Orphans: instance Text.PrettyPrint.HughesPJClass.Pretty GHC.Num.Natural.Natural
- OpenSuse.Prelude: class Foldable (t :: Type -> Type)
+ OpenSuse.Prelude: class Foldable (t :: TYPE LiftedRep -> Type)
- OpenSuse.Prelude: infixl 6 +
+ OpenSuse.Prelude: infixl 6 -
- OpenSuse.Prelude: seq :: forall (r :: RuntimeRep) a (b :: TYPE r). a -> b -> b
+ OpenSuse.Prelude: seq :: forall {r :: RuntimeRep} a (b :: TYPE r). a -> b -> b
Files
distribution-opensuse.cabal view
@@ -1,5 +1,5 @@ name: distribution-opensuse-version: 1.1.3+version: 1.1.4 synopsis: Types, functions, and tools to manipulate the openSUSE distribution description: This library is a loose collection of types, functions, and tools that users and developers of the@@ -9,7 +9,7 @@ author: Peter Simons maintainer: simons@cryp.to tested-with: GHC == 8.0.2, GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.4, GHC == 8.10.7- , GHC == 9.0.2, GHC == 9.2.1+ , GHC == 9.0.2, GHC == 9.2.7, GHC == 9.4.4, GHC == 9.6.1 category: Distribution homepage: https://github.com/peti/distribution-opensuse/ bug-reports: https://github.com/peti/distribution-opensuse/issues@@ -21,7 +21,7 @@ source-repository head type: git- location: git://github.com/peti/distribution-opensuse.git+ location: https://github.com/peti/distribution-opensuse.git library exposed-modules: OpenSuse.GuessChangeLog
src/OpenSuse/GuessChangeLog.hs view
@@ -10,6 +10,7 @@ import Data.Set ( Set ) import qualified Data.Set as Set import qualified Data.Text as Text+import qualified Data.Text.IO as Text import Prelude hiding ( FilePath ) import Turtle hiding ( l, x, stderr, stdout ) @@ -45,8 +46,8 @@ [] -> throwError (NoCommonChangeLogFiles oldCLF newCLF) [clf] -> return clf _ -> throwError (MoreThanOneChangeLogFile clf')- old <- stripSpace <$> liftIO (readTextFile (oldDir </> clf))- new <- stripSpace <$> liftIO (readTextFile (newDir </> clf))+ old <- stripSpace <$> liftIO (Text.readFile (oldDir </> clf))+ new <- stripSpace <$> liftIO (Text.readFile (newDir </> clf)) let changes = cleanupEmptyLines (getDiff (Text.lines old) (Text.lines new)) (top,diff) = span inBoth changes (add,foot) = span inSecond diff