maxigit

This is literate haskell file, so let start with the boring bits

>{-# LANGUAGE TemplateHaskell #-}
>{-# LANGUAGE DuplicateRecordFields #-}
>{-# LANGUAGE StandaloneDeriving,FlexibleInstances, FlexibleContexts #-}

Metamorphosis is meant to be imported unqualified, and uses lenses to configurate default records.
I'll use micro lens.

>import Metamorphosis

maxigit

module Fun where
import Data.List(groupBy)

data Lesson c = Lesson
  { name :: String,
    lposition :: c
  }
  deriving (Show)

data Section c = Section