kornietsbk

Допустим у нас есть структура:

data Struct = Constructor {
       field :: String,
       value :: Integer
              }
       deriving (Show)

Далее мы ее инициализируем каким-то значением:
Prelude> let item = Constructor "Module" 100
Теперь имя item связано с типом Struct
Для получения значений отдельных полей, ты можешь использовать имена этих полей, как функции ( только если ты еспользуешь синтаксис, показанный в примере) :

Prelude> field s
"Module"
Prelude>value s 
100

Функция signum определяет знак переданного ей, в качестве аргумента, числа

Prelude> signum 4
1
Prelude> signum (-4)
-1

Возвращает 1 - если число положительное; -1 - если число отрицательное

Насколько старый диск и как он жил ?

Если он достаточно старый или постоянно нагревался или ударялся, то могла умереть магнитная составляющая. Диск может оставаться виден при установке системы или в биосе, так как контролер еще живет, а хранилище само упало.
Такое еще возможно при скачке напряжения. Например: выключил блок питания при это не завершил сеанс ОС

Попробуй запуститься на лайв образе твоего дистрибутива и попробуй отформатировать разделы,если ошибка сохраняется, то меняй диск.