[commit: containers] master: Insert missing space in an error message. (0928ff0)

Paolo Capriotti p.capriotti at gmail.com
Thu Jul 19 21:12:17 CEST 2012


Repository : ssh://darcs.haskell.org//srv/darcs/packages/containers

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0928ff026a70b759be060f6ea46a48c58957049c

>---------------------------------------------------------------

commit 0928ff026a70b759be060f6ea46a48c58957049c
Author: Milan Straka <fox at ucw.cz>
Date:   Sat Apr 21 21:37:14 2012 +0200

    Insert missing space in an error message.

>---------------------------------------------------------------

 Data/IntMap/Base.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Data/IntMap/Base.hs b/Data/IntMap/Base.hs
index 6980a6e..d147d59 100644
--- a/Data/IntMap/Base.hs
+++ b/Data/IntMap/Base.hs
@@ -409,7 +409,7 @@ find k = k `seq` go
                   | otherwise = not_found
     go Nil = not_found
 
-    not_found = error ("IntMap.!: key" ++ show k ++ " is not an element of the map")
+    not_found = error ("IntMap.!: key " ++ show k ++ " is not an element of the map")
 
 -- | /O(min(n,W))/. The expression @('findWithDefault' def k map)@
 -- returns the value at key @k@ or returns @def@ when the key is not an





More information about the Cvs-libraries mailing list