[Haskell] Connessione WiFi, tramite /etc/network/interfaces

-- Connection using /etc/network/interfaces
-- $ ghci thisfile.hs -o appname
--

module Main where
import System.IO

-- questo coso serve soltanto per non mandare a capo le stringhe della main
prompt :: String -> IO String
prompt text = do
   putStr text
   hFlush stdout
   getLine

main :: IO()
main = do
       interface <- prompt "Create new WiFi connection\n1. interface (? wlan0 ?): "
       essid <- prompt "SSID: "
       wkey <- prompt "WPA key: "
       -- esiste anche un readFile e un writeFile... un openFile pareva brutto
       appendFile "/etc/network/interfaces" ("\n\niface " ++ essid ++
                                             " inet dhcp\nwpa-ssid " ++ essid ++
                                             "\nwpa-psk " ++ wkey)
       putStrLn ("Connection Created!\nUse 'ifup " ++ interface ++ "=" ++ essid ++
                 "' to connect")