[Comp] ふつける 9 章 (9.6練習問題)

出題の意図を理解し損ねたかも。
これだと、Ordクラスのcompareを使ったことにならないのかな。

import List

data Line = Line {

  number :: Int,

  string :: String

} deriving (Show, Ord)

instance Eq Line where

    (Line num1 str1) == (Line num2 str2) = (num1 == num2)

ls :: [Line]

ls = [(Line 3 "three"), (Line 1 "one"), (Line 2 "two")]

sortLines :: [Line] -> [Line]

sortLines = sortBy compare 

main = print $ sortLines ls

なんか9章は難しくて理解があやふやになってるなあ。
さくさくプログラムを書けないし。