Commit before reorganising/removing SSSExtra

src/Dodge/InputFocus.hs

@@ -7,11 +7,9 @@ module Dodge.InputFocus (
     inInputFocus,
     regexScope,
     regexFocus,
-    --    , inputFocus'
 ) where
 
 import Control.Monad
---import Data.IntMap.Strict (IntMap)
 import Data.Maybe
 import Dodge.Data.SelectionList
 import Dodge.Data.World
@@ -27,8 +25,7 @@ inTermFocus w = fromMaybe False $ do
 regexScope ::
     (Applicative f) =>
     World ->
-    Maybe
-        ((SSSExtra -> f SSSExtra) -> HUDElement -> f HUDElement, Int)
+    Maybe ((SSSExtra -> f SSSExtra) -> HUDElement -> f HUDElement, Int)
 regexScope w = case w ^? hud . hudElement . subInventory of
     Just NoSubInventory{} -> case he ^? diSelection . _Just of
         Just (-1, _) -> di (-1)