@@ -37,7 +37,6 @@ import Basics (..)
37import Maybe (..)
37import Maybe (..)
38import Native.Error
38import Native.Error
39import List
39import List
41import Native.Utils
40import Native.Utils
43-- BBlack and NBlack should only be used during the deletion
42-- BBlack and NBlack should only be used during the deletion
@@ -144,7 +143,7 @@ will be found.
144getUnsafe : comparable -> Dict comparable v -> v
143getUnsafe : comparable -> Dict comparable v -> v
145getUnsafe k t =
144getUnsafe k t =
146 case t of
145 case t of
147− RBEmpty LBlack -> Native.Error.raise <| String.concat [ "key ", String.show k, " not found." ]
146+ RBEmpty LBlack -> Native.Error.raise "key not found when using 'getUnsafe'"
148 RBNode _ k' v l r ->
147 RBNode _ k' v l r ->
149 case Native.Utils.compare k k' of
148 case Native.Utils.compare k k' of
150 LT -> getUnsafe k l
149 LT -> getUnsafe k l