Added missing type signatures in ByteStringOperators.

1 files changed, 9 insertions, 0 deletions

diff --git a/Presence/ByteStringOperators.hs b/Presence/ByteStringOperators.hs
index 4453aca0..e8485134 100644
--- a/Presence/ByteStringOperators.hs
+++ b/Presence/ByteStringOperators.hs
@@ -5,9 +5,12 @@ import qualified Data.ByteString as S (ByteString)
 import Data.ByteString.Lazy.Char8 as L 
 import Control.Applicative
 
+#if MIN_VERSION_bytestring(0,10,0)
+#else
 -- These two were imported to provide an NFData instance.
 import qualified Data.ByteString.Lazy.Internal as L (ByteString(..))
 import Control.DeepSeq
+#endif
 
 
 (<++>) :: ByteString -> ByteString -> ByteString
@@ -23,6 +26,10 @@ infixr 5 <.++>
 infixr 5 <++>
 infixr 5 <++.>
 
+
+(<++$>) :: Functor f => ByteString -> f ByteString -> f ByteString
+(<$++>) :: Functor f => f ByteString -> ByteString -> f ByteString
+(<$++$>) :: Applicative f => f ByteString -> f ByteString -> f ByteString
 a <++$> b = fmap (a<++>) b
 a <$++> b = fmap (<++>b) a
 a <$++$> b = liftA2 (<++>) a b
@@ -30,10 +37,12 @@ infixr 6 <++$>
 infixr 6 <$++>
 infixr 6 <$++$>
 
+(<?++>) :: Maybe ByteString -> ByteString -> ByteString
 Nothing <?++> b = b
 Just a  <?++> b = a <++> b
 infixr 5 <?++>
 
+(<++?>) :: ByteString -> Maybe ByteString -> ByteString
 a <++?> Nothing = a
 a <++?> Just b  = a <++> b
 infixr 5 <++?>