Thanks to visit codestin.com Credit goes to github.com
We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 1e1f897 commit 90432a4Copy full SHA for 90432a4
1 file changed
tests/XFTPClient.hs
@@ -42,13 +42,17 @@ cfgFS (AFSType fs) = case fs of
42
SFSMemory -> AXFTPSrvCfg testXFTPServerConfig
43
#if defined(dbServerPostgres)
44
SFSPostgres -> AXFTPSrvCfg testXFTPServerConfig {serverStoreCfg = XSCDatabase testXFTPPostgresCfg}
45
+#else
46
+ SFSPostgres -> error "no postgres support"
47
#endif
48
49
cfgFS2 :: AFStoreType -> AXFTPServerConfig
50
cfgFS2 (AFSType fs) = case fs of
51
SFSMemory -> AXFTPSrvCfg testXFTPServerConfig2
52
53
SFSPostgres -> AXFTPSrvCfg testXFTPServerConfig2 {serverStoreCfg = XSCDatabase testXFTPPostgresCfg}
54
55
56
57
58
withXFTPServerConfigOn :: HasCallStack => AXFTPServerConfig -> (HasCallStack => ThreadId -> IO a) -> IO a
0 commit comments