Hlinting

2021-04-27 11:45:43 +02:00
parent f8351fb150
commit 64b5b9e2a5
34 changed files with 974 additions and 761 deletions
@@ -13,5 +13,5 @@ linksOnPath r = all pointOnPath linkPoints
 pathConnected :: Room -> Bool
 pathConnected = isSingleton . pairsToSCC . _rmPath
  where
-    isSingleton (_:[]) = True
-    isSingleton _ = False
+    isSingleton [] = True
+    isSingleton _  = False