бумага, рок, и ножницы в Haskell

Question

Коды ниже запрограммирован, чтобы решить результат бумаги рок и ножницы в Haskell, однако терминал выдаст ошибку

data Move = Paper | Rock | Scissors 
deriving (Eq, Show) 
data Result = Win | Draw | Loose 
    deriving (Eq, Show) 


beats :: Move -> Move 
beats move = case move of 
    Paper -> Scissors 
    Rock -> Paper 
    Scissors -> Rock 

score :: Move -> Move -> Result 
score this_move opposing_move 
    | this_move == beats opposing_move = Win 
    | this_move == opposing_move  = Draw 
    | otherwise = Loose 

здесь сообщение об ошибке от терминала

[1 of 1] Compiling Main    (test.hs, interpreted) 

test.hs:1:60: parse error on input `data' 
Failed, modules loaded: none. 

Кто любит рассказывать мне, что в этом плохого? Спасибо XD

Answer 1

Ваш код хорошо сформирован. Я могу загрузить его в ghci без каких-либо изменений.
Ошибка синтаксического анализа зависит от того, как ваш текстовый редактор управляет пространством и вкладкой.
Вам следует больше исследовать конфигурацию вашего редактора, чем правильность вашего базового кода.

---

Используйте этот кусок кода для переформатирования файла.

$ cd /to/your/code.hs 
$ ghci 

и писать,

ghci >let f = readFile "code.hs" 
ghci >do {reencoded <- fmap (filter (/= '\r')) f; writeFile "ncode.hs" reencoded} 

Затем перекомпилировать код.
Сообщите мне, если проблема будет решена.

Как сказано, этого недостаточно, но если вы введете эту инструкцию в ghci.

ghci > readFile "code.hs" 
-- print something 

И вы покажете нам необработанный результат, возможно, это может помочь.