Start to refactor terminals

src/Dodge/Inventory.hs

@@ -246,16 +246,6 @@ isConnected x = case x ^. locLdtContext of
         || not (null $ x ^. locLDT . ldtLeft) 
     _ -> True
 
-isConnectedAbove :: LocationLDT b a -> Bool
-isConnectedAbove x = case x ^. locLdtContext of
-    LeftwardLDT {} -> True
-    _ -> not . null $ x ^. locLDT . ldtRight
-    
-isConnectedBelow :: LocationLDT b a -> Bool
-isConnectedBelow x = case x ^. locLdtContext of
-    RightwardLDT {} -> True
-    _ -> not . null $ x ^. locLDT . ldtLeft
-
 changeSwapWith :: (Int -> IM.IntMap (SelectionItem ()) -> Maybe Int) -> World -> World
 changeSwapWith f w = case w ^? hud . hudElement . diSelection . _Just of
     Just (0, i) -> w & swapInvItems f i