Hello community,

here is the log from the commit of package ghc-atom-basic for openSUSE:Factory 
checked in at 2017-06-22 10:36:58
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-atom-basic (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-atom-basic.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-atom-basic"

Thu Jun 22 10:36:58 2017 rev:2 rq:504056 version:0.2.5

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-atom-basic/ghc-atom-basic.changes    
2017-04-12 18:05:09.335795508 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-atom-basic.new/ghc-atom-basic.changes       
2017-06-22 10:37:00.070313861 +0200
@@ -1,0 +2,5 @@
+Thu Jun  8 11:08:27 UTC 2017 - [email protected]
+
+- Update to version 0.2.5.
+
+-------------------------------------------------------------------

Old:
----
  atom-basic-0.2.4.tar.gz

New:
----
  atom-basic-0.2.5.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-atom-basic.spec ++++++
--- /var/tmp/diff_new_pack.CiicFY/_old  2017-06-22 10:37:01.034177982 +0200
+++ /var/tmp/diff_new_pack.CiicFY/_new  2017-06-22 10:37:01.038177418 +0200
@@ -18,7 +18,7 @@
 
 %global pkg_name atom-basic
 Name:           ghc-%{pkg_name}
-Version:        0.2.4
+Version:        0.2.5
 Release:        0
 Summary:        Basic Atom feed construction
 License:        BSD-3-Clause
@@ -74,6 +74,6 @@
 
 %files devel -f %{name}-devel.files
 %defattr(-,root,root,-)
-%doc CHANGELOG
+%doc CHANGELOG.md
 
 %changelog

++++++ atom-basic-0.2.4.tar.gz -> atom-basic-0.2.5.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/atom-basic-0.2.4/CHANGELOG 
new/atom-basic-0.2.5/CHANGELOG
--- old/atom-basic-0.2.4/CHANGELOG      2015-07-08 17:38:02.000000000 +0200
+++ new/atom-basic-0.2.5/CHANGELOG      1970-01-01 01:00:00.000000000 +0100
@@ -1,9 +0,0 @@
-- 0.2.0
-    * Export unsafeURI convenience function.
-    * Add usage examples.
-
-- 0.1.1
-    * Loosen constraint on base.
-
-- 0.1.0
-    * First release.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/atom-basic-0.2.4/CHANGELOG.md 
new/atom-basic-0.2.5/CHANGELOG.md
--- old/atom-basic-0.2.4/CHANGELOG.md   1970-01-01 01:00:00.000000000 +0100
+++ new/atom-basic-0.2.5/CHANGELOG.md   2017-06-03 16:54:17.000000000 +0200
@@ -0,0 +1,26 @@
+- 0.2.5
+    * Make `unsafeURI` throw a more helpful error. Thanks
+      [@emhoracek](https://github.com/emhoracek)!
+
+- 0.2.4
+    * Move to Stack.
+    * Minor documentation adjustments.
+
+- 0.2.3
+    * Drop dependency on `old-locale` package.
+
+- 0.2.2
+    * Improve documentation.
+
+- 0.2.1
+    * Add README and documentation.
+
+- 0.2.0
+    * Export unsafeURI convenience function.
+    * Add usage examples.
+
+- 0.1.1
+    * Loosen constraint on base.
+
+- 0.1.0
+    * First release.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/atom-basic-0.2.4/atom-basic.cabal 
new/atom-basic-0.2.5/atom-basic.cabal
--- old/atom-basic-0.2.4/atom-basic.cabal       2016-10-22 14:12:23.000000000 
+0200
+++ new/atom-basic-0.2.5/atom-basic.cabal       2017-06-03 16:54:17.000000000 
+0200
@@ -1,5 +1,5 @@
 name:                atom-basic
-version:             0.2.4
+version:             0.2.5
 synopsis:            Basic Atom feed construction
 description:
 
@@ -19,7 +19,7 @@
 build-type:          Simple
 cabal-version:       >=1.10
 Extra-source-files:
-    CHANGELOG
+    CHANGELOG.md
 
 source-repository head
   type:     git
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/atom-basic-0.2.4/src/Web/Atom.hs 
new/atom-basic-0.2.5/src/Web/Atom.hs
--- old/atom-basic-0.2.4/src/Web/Atom.hs        2016-10-22 14:14:54.000000000 
+0200
+++ new/atom-basic-0.2.5/src/Web/Atom.hs        2017-06-03 16:54:13.000000000 
+0200
@@ -75,7 +75,7 @@
 import           Data.ByteString        (ByteString)
 import qualified Data.ByteString.Base64 as B64
 import qualified Data.ByteString.Char8  as BC
-import           Data.Maybe             (catMaybes, fromJust)
+import           Data.Maybe             (catMaybes)
 import           Data.String            (IsString (..))
 import qualified Data.Text              as T
 import qualified Data.Text.Encoding     as T (decodeUtf8)
@@ -132,7 +132,9 @@
 -- function is partial so only use this if you're hardcoding the URI string and
 -- you're sure that it's valid./
 unsafeURI :: String -> URI
-unsafeURI = fromJust . parseURI
+unsafeURI s = case parseURI s of
+    Just uri-> uri
+    Nothing -> error $ "Unable to parse URI string: " ++ s
 
 -- -------------------------
 -- External XML construction


Reply via email to