Cleanup, hlints

src/Dodge/Data/DoubleTree.hs

@@ -113,7 +113,7 @@ makeLenses ''ContextDT
 instance Functor (LocationLDT b) where
     fmap f (LocLDT c t) = LocLDT (fmap f c) (fmap f t)
 
-instance Functor (LocationDT) where
+instance Functor LocationDT where
     fmap f (LocDT c t) = LocDT (fmap f c) (fmap f t)
 
 instance Functor (ContextLDT b) where
@@ -133,20 +133,20 @@ instance Functor (ContextLDT b) where
             l
             (fmap (fmap (fmap f)) cr)
 
-instance Functor (ContextDT) where
+instance Functor ContextDT where
     fmap f = \case
         TopDT -> TopDT
         LeftwardDT u cl p cr fr -> LeftwardDT 
             (fmap f u)
-            (fmap (fmap ( f)) cl)
+            (fmap (fmap f) cl)
             (f p)
-            (fmap (fmap ( f)) cr)
-            (fmap (fmap ( f)) fr)
+            (fmap (fmap f) cr)
+            (fmap (fmap f) fr)
         RightwardDT u fl cl p cr -> RightwardDT (fmap f u)
-            (fmap (fmap ( f)) fl)
-            (fmap (fmap ( f)) cl)
+            (fmap (fmap f) fl)
+            (fmap (fmap f) cl)
             (f p)
-            (fmap (fmap ( f)) cr)
+            (fmap (fmap f) cr)
 
 --deriveJSON defaultOptions ''DoubleTree
 --deriveJSON defaultOptions ''LabelDoubleTree