parse error in let binding: missing required 'in'

[upshot]

Boas!

Estou a tentar resolver uma função

splitFTree :: (FTree a b) -> (BTree a, LTree b)

que separa uma árvore com informação nos nodos e nas folhas em duas árvores de tipos diferentes. Sendo os tipos:

data FTree a b = Leaf b | No a (FTree a b) (FTree a b)
data BTree a = Empty | Node a (BTree a) (BTree a)
data LTree a = Tip a | Fork (LTree a) (LTree a)

Escrevi a seguinte solução:

splitFTree :: (FTree a b) -> (BTree a, LTree b)
splitFTree (Leaf a) = ( Node a Empty Empty , Tip a )
splitFTree (No a e d) = let (b1,l1) = splitFTree e
                                         (b2,l2) = splitFTree d
                                    in (Node a b1 b2 , Fork l1 l2)

E não entendo porque recebo o erro

solucaoficha9.hs:89:25:
parse error in let binding: missing required 'in'

Alguém consegue ajudar?

Bem-hajam.

Edited January 6, 2016 at 01:36 AM by upshot
GeSHi

[pdfrod]

Os bindings dentro de um let devem ter a mesma indentação (Haskell é sensível à indentação). Ou seja, em vez disto:

(b1,l1) = splitFTree e
  (b2,l2) = splitFTree d

deveria ser assim:

(b1,l1) = splitFTree e
(b2,l2) = splitFTree d

Edited January 6, 2016 at 11:09 AM by Kimio

[upshot]

Era exatamente isso. A única anormalidade era além de parecerem alinhadas, as duas linhas só deixaram de dar erro quando alinhadas por TAB e não por SPACE mesmo estando na mesma "column" da file.

Obrigado pela ajuda!