Haskell newline, wie?

Question

Ich habe ein Problem mit dem folgenden Code. Es soll eine Art Wörterbuch sein, das zuerst nach einem deutschen Wort sucht, dann nach einem bayerischen Wort und beides in einer .txt-Datei speichert. Dann neLine für das nächste Paar. Das Programm wird beendet, wenn Sie keine neuen Wörter mehr eingeben. UPDATE: Die neue Zeile "/ n" funktioniert nicht. Wie kann ich das lösen?

main :: IO() 
main = do 
    putStrLn "Deutsches Wort: " 
    deutsch <-getLine 
    if deutsch /= [] 
    then do 
    putStrLn "Bayerisches Wort: " 
    bayerisch <- getLine 
    appendFile "woerterbuch.txt" (deutsch++ " "++ bayerisch++ " /n") 
    putStrLn (deutsch ++ " ist auf bayerisch " ++ bayerisch) 
    main 
    else return() 

Answer 1

Hier ist, wie ich es tun würde.

import System.IO 
import System.Environment 
import Control.Monad 

main :: IO() 
main = do 
    (fileName:_) <- getArgs 
    unless (null fileName) $ 
    withFile fileName WriteMode makeDictionary 
    where  
    makeDictionary :: Handle -> IO() 
    makeDictionary h = do 
     putStrLn "Deutsches Wort: " 
     deutsch <-getLine 
     if not . null $ deutsch 
     then do 
      hPutStr h $ deutsch++" " 
      putStrLn "Bayerisches Wort: " 
      bayerisch <- getLine 
      hPutStrLn h bayerisch 
      putStrLn (deutsch ++ " ist auf bayerisch " ++ bayerisch) 
      makeDictionary h 
     else return() 

Ihre überarbeitete Version sieht aus wie es sollte funktionieren, aber die Vorteile dabei ist, dass die Datei nicht wiederholt geöffnet und geschlossen wird. Obwohl ich nicht sicher bin, ob GHC intelligent genug ist, um es in Ihrem Fall offen zu halten. Außerdem ist es im Allgemeinen besser, nach leeren Strings mit null zu suchen, anstatt mit einer leeren Liste zu vergleichen.

Bearbeitet per Chepner's Kommentar.