Add src-loc test for 32 bit pseudo relocation issue

See #2228

Author: hamishmack

test/default.nix

@@ -233,6 +233,7 @@ let
     plugin = callTest ./plugin {};
     supported-languages = callTest ./supported-langauges {};
     js-template-haskell = callTest ./js-template-haskell {};
+    src-loc = callTest ./src-loc { inherit util; };
     unit = unitTests;
   };
 

test/src-loc/default.nix

@@ -0,0 +1,25 @@
+# See https://github.com./input-output-hk/haskell.nix/issues/2228
+{ stdenv, lib, util, project', haskellLib, recurseIntoAttrs, testSrc, compiler-nix-name, evalPackages, buildPackages }:
+
+with lib;
+
+let
+  project = project' {
+    inherit compiler-nix-name evalPackages;
+    src = testSrc "src-loc";
+  };
+
+  packages = project.hsPkgs;
+
+in recurseIntoAttrs rec {
+  meta.disabled = stdenv.hostPlatform.isGhcjs;
+
+  ifdInputs = {
+    inherit (project) plan-nix;
+  };
+
+  build = packages.src-loc.components.exes.src-loc;
+  check = haskellLib.check build;
+  build-profiled = packages.src-loc.components.exes.src-loc.profiled;
+  check-profiled = haskellLib.check build-profiled;
+}

test/src-loc/src-loc.cabal

@@ -0,0 +1,13 @@
+cabal-version:       >=1.10
+name:                src-loc
+version:             0.1.0.0
+license:             PublicDomain
+author:              Hamish Mackenzie
+maintainer:          [email protected]
+build-type:          Simple
+
+executable src-loc
+  build-depends:       base
+  main-is:             Main.hs
+  hs-source-dirs:      src
+  default-language:    Haskell2010

test/src-loc/src/Main.hs

@@ -0,0 +1,9 @@
+module Main where
+
+import GHC.Types.SrcLoc
+
+main :: IO ()
+main = putStrLn "yeah"
+
+data Foo = Foo PsLoc
+