diff --git a/raven-haskell.cabal b/raven-haskell.cabal
--- a/raven-haskell.cabal
+++ b/raven-haskell.cabal
@@ -1,8 +1,8 @@
 name:                raven-haskell
-version:             0.1.4.0
+version:             0.1.4.1
 synopsis:            Haskell client for Sentry logging service.
 -- description:
-homepage:            https://bitbucket.org/dpwiz/raven-haskell
+homepage:            https://gitlab.com/dpwiz/raven-haskell
 license:             MIT
 license-file:        LICENSE
 author:              Alexander Bondarenko
@@ -10,13 +10,14 @@
 -- copyright:
 category:            Logging
 build-type:          Simple
-cabal-version:       >=1.8
+cabal-version:       >=1.10
 
 extra-source-files:
   README.md
 
 library
   hs-source-dirs: src
+  default-language: Haskell2010
   ghc-options: -Wall
   exposed-modules:
     System.Log.Raven
@@ -39,7 +40,12 @@
     unordered-containers,
     uuid-types
 
+flag tests
+  manual: True
+  default: False
+
 test-suite test
+  default-language: Haskell2010
   type: exitcode-stdio-1.0
   main-is: Test.hs
   hs-source-dirs: test
@@ -51,7 +57,9 @@
     raven-haskell,
     time,
     unordered-containers
+  if !flag(tests)
+    buildable: False
 
 source-repository head
   type:     git
-  location: https://bitbucket.org/dpwiz/raven-haskell
+  location: https://gitlab.com/dpwiz/raven-haskell
diff --git a/src/System/Log/Raven/Types.hs b/src/System/Log/Raven/Types.hs
--- a/src/System/Log/Raven/Types.hs
+++ b/src/System/Log/Raven/Types.hs
@@ -12,6 +12,7 @@
 import Data.Aeson (ToJSON(toJSON), Value, object, (.=))
 import qualified Data.HashMap.Strict as HM
 import qualified Data.Text as T
+import Data.String (fromString)
 import Data.Time.Clock (UTCTime)
 
 -- * Service settings
@@ -128,8 +129,12 @@
         , maybe [] (\v -> ["server_name" .= v]) $ srServerName r
         , if HM.null (srModules r) then [] else ["modules" .= srModules r]
         , if HM.null (srExtra r) then [] else ["extra" .= srExtra r]
-        , if HM.null (srInterfaces r) then [] else [ T.pack iface .= stuff
-                                                   | (iface, stuff) <- HM.toList $ srInterfaces r]
+        , if HM.null (srInterfaces r) then
+            []
+          else
+            [ fromString iface .= stuff
+            | (iface, stuff) <- HM.toList $ srInterfaces r
+            ]
         , maybe [] (\v -> ["release" .= v]) $ srRelease r
         , maybe [] (\v -> ["environment" .= v]) $ srEnvironment r
         ]