From 0b837f76cfbf39d9f1d98584f8ccd77d280929bd Mon Sep 17 00:00:00 2001
From: Ivaylo Ivanov <me@ivayloivanov.eu>
Date: Tue, 23 Nov 2021 18:43:45 +0100
Subject: [PATCH] Fix UE6 A1

---
 code/Angabe6.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/code/Angabe6.hs b/code/Angabe6.hs
index 2ef1e7e..fa7e2f1 100644
--- a/code/Angabe6.hs
+++ b/code/Angabe6.hs
@@ -30,7 +30,6 @@ type Row     = [Skalar]
 
 construct_matrix :: MatrixF -> Zeile -> [Row] -> [Row]
 construct_matrix m rc res
-   | m == fehler = []
    | rc > numrow = res
    | otherwise =
       construct_matrix m (rc + 1) (res ++ [(construct_row f numcol rc 1 [])])
@@ -46,7 +45,6 @@ construct_row f numcol rc cc res
 
 is_correct_matrix :: MatrixF -> Bool
 is_correct_matrix m
-   | m == fehler = False
    | fst t == height && snd t == width = True
    | otherwise = False
    where