getDataDir :: IO FilePath
getDataDir =  catchIO (getEnv "Test_datadir") (\_ -> getPrefixDirRel "x86_64-windows-ghc-8.0.2\\Test-0.1")
getDataDir :: IO FilePath
getDataDir =  catchIO (getEnv "Test_datadir") (\_ -> getPrefixDirRel "x86_64-windows-ghc-8.0.2\\Test-0.1")
getDataDir =  catchIO (getEnv "Test_datadir") (\_ -> getPrefixDirRel "x86_64-windows-ghc-8.0.2\\Test-0.1")