Broken commit (removed loadKeyConfig)

2021-08-27 11:58:11 +01:00
parent c4df048d31
commit 3ff04576ab
25 changed files with 122 additions and 200 deletions
@@ -12,7 +12,7 @@ import qualified Data.IntMap.Strict as IM
 import Data.Graph.Inductive hiding ((&))
 --import Data.Graph.Inductive.NodeMap

-pairsToGraph :: (Ord a, Eq a, Eq b) => (a -> a -> b) -> [(a,a)] -> Gr a b
+pairsToGraph :: (Ord a, Eq b) => (a -> a -> b) -> [(a,a)] -> Gr a b
 pairsToGraph f pairs = 
    let nodes' = nub (map fst pairs ++ map snd pairs)
        pairs' = map (\(x,y)->(x,y,f x y)) pairs