fix windows build

Assistant/WebApp/Configurators/Ssh.hs

@@ -606,7 +606,7 @@ prepRsyncNet sshinput reponame a = do
 			, Param $ sshhost ++ ":.ssh/"
 			]
 	let remotecommand = "mkdir -p " ++ T.unpack (sshDirectory sshdata)
-	sshSetup ssinput (torsyncnet remotecommand) Nothing (a sshdata)
+	sshSetup sshinput (torsyncnet remotecommand) Nothing (a sshdata)
 #endif
 
 isRsyncNet :: Maybe Text -> Bool

Utility/Daemon.hs

@@ -54,7 +54,6 @@ daemonize logfd pidfile changedirectory a = do
 		wait =<< asyncWithUnmask (\unmask -> unmask a)
 		out
 	out = exitImmediately ExitSuccess
-#endif
 
 {- To run an action that is normally daemonized in the forground. -}
 foreground :: Fd -> Maybe FilePath -> IO () -> IO ()
@@ -64,6 +63,7 @@ foreground logfd pidfile a = do
 	redirLog logfd
 	a
 	exitImmediately ExitSuccess
+#endif
 
 {- Locks the pid file, with an exclusive, non-blocking lock,
  - and leaves it locked on return.