You can not end the query with the order function,
then this will happen
 
 ord = 
   withDB$ \db -> 
   do rows <-query db $
             do result <- table H.farms
                order [asc result est]
      farmsHeader
      mapM_ (putStrLn .showH) rows
 
 Bad3> ord
 ERROR "Bad3.hs":6 - Undefined variable "farmsHeader"
 farm_id farm_name size cows chickens est
       1 "Emmerdale" 1002 Just 10 Just 106 1969
       0 "Doebrook" 375 Just 3 Just 15 1969
       4 "PreMillenium Bug" 459 Just 2 Just 50 1982
       3 "Millenium bug" 458 Nothing Just 50 2000
Here are all words and functions with references, in alphabetical order