summaryrefslogtreecommitdiff
path: root/80-89/80.hs
diff options
context:
space:
mode:
Diffstat (limited to '80-89/80.hs')
-rw-r--r--80-89/80.hs9
1 files changed, 3 insertions, 6 deletions
diff --git a/80-89/80.hs b/80-89/80.hs
index 4dc2956..5f58f76 100644
--- a/80-89/80.hs
+++ b/80-89/80.hs
@@ -1,13 +1,10 @@
import Data.List (sort)
-data Graph a = Graph [a] [(a, a)]
- deriving (Show, Eq)
+data Graph a = Graph [a] [(a, a)] deriving (Show, Eq)
-data Adjacency a = Adj [(a, [a])]
- deriving (Show, Eq)
+data Adjacency a = Adj [(a, [a])] deriving (Show, Eq)
-data Friendly a = Edge [(a, a)]
- deriving (Show, Eq)
+data Friendly a = Edge [(a, a)] deriving (Show, Eq)
graphToAdj :: Eq a => Graph a -> Adjacency a