Minor refactor

haskell · Jun 23, 2020 · b7dc398 · b7dc398
1 parent 2b640a0
commit b7dc398
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Development/IDE/Plugin/CodeAction.hs b/src/Development/IDE/Plugin/CodeAction.hs
@@ -443,8 +443,8 @@ suggestInstanceConstraint contents Diagnostic {..} missingConstraint
   | otherwise = []
     where
       findExistingConstraints :: T.Text -> T.Text
-      findExistingConstraints =
-        T.lines >>> flip (!!) 1 >>> T.strip >>> T.replace "from the context: " ""
+      findExistingConstraints t =
+        T.replace "from the context: " "" . T.strip $ T.lines t !! 1
 
       readPositionNumber :: T.Text -> Int
       readPositionNumber = T.unpack >>> read >>> pred
@@ -500,7 +500,7 @@ suggestFunctionConstraint contents Diagnostic{..} missingConstraint
       findExistingConstraints :: T.Text -> Maybe T.Text
       findExistingConstraints message =
         if message =~ ("from the context:" :: String)
-           then matchRegex message "\\. ([^=]+)" <&> head <&> T.strip
+           then fmap (T.strip . head) $ matchRegex message "\\. ([^=]+)"
            else Nothing
 
       buildNewConstraints :: T.Text -> Maybe T.Text -> T.Text