/usr/share/doc/libghc-ftphs-doc/examples/ftptest.hs is in libghc-ftphs-doc 1.0.9.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | -- arch-tag: FTP test
import MissingH.Network.FTP.Server
import MissingH.Network.SocketServer
import MissingH.Logging.Logger
import MissingH.IO.HVFS
import MissingH.IO.HVFS.Combinators
main = do
updateGlobalLogger "" (setLevel DEBUG)
updateGlobalLogger "MissingH.Network.FTP.Server" (setLevel DEBUG)
let opts = (simpleTCPOptions 12345) {reuse = True}
serveTCPforever opts $
threadedHandler $
loggingHandler "" INFO $
handleHandler $
anonFtpHandler (HVFSReadOnly SystemFS)
|