Real World Haskell, Ex. 3.2.6 (p.72 in Ja)

gistfile1.hs

import Data.List
sortByLength = sortBy ord
    where ord l1 l2 = if length l1 < length l2
                      then LT
                      else if length l1 > length l2
                      then GT
                      else EQ
        where l1l = length l1
              l2l = length l2
-- 8:8: parse error on input `where'

I'll try to learn.