module Exercise_11 where

import Network
import System.IO

{-G11.1-}

{- Zu Lösen in eigener Datei -}


{-G11.2-}

{- Zu Lösen in eigener Datei -}

{-G11.3-}

vocabs = ["i", "more", "more", "now", "want", "won", "wow"]

fixTypo :: [String] -> String -> Either [String] String
fixTypo = undefined

{-H11.1-}

{- Zu Lösen in eigener Datei -}

{-H11.2-}

{- Folgende Funktionen können Sie zur Lösung verwenden:

    -- definiert in Network
    -- erzeugt einen Socket und wartet auf eingehende Verbindungen
    -- Muss nur ein einziges Mal beim Start des Servers aufgerufen werden.
    -- Bsp.: listenOn (PortNumber 80)
    listenOn :: PortID -> IO Socket

    -- definiert in Network
    -- erstellt ein I/O-Handle für eine Verbindung
    -- Kann nach einem Protokolllauf erneut aufgerufen werden.
    -- Für die Bearbeitung der Aufgabe ist nur das Handle notwendig, die anderen Rückgabewerte können ignoriert werden.
    accept :: Socket -> IO (Handle, HostName, PortNumber)

    -- definiert in System.IO
    -- schließt ein I/O-Handle
    -- muss unbedingt nach Beendigung eines Protokolllaufs oder bei vorzeitigem Abbruch aufgerufen werden
    hClose :: Handle -> IO ()

-}

server :: IO (String, String) -> IO ()
server c = withSocketsDo $ undefined