From 2c107e71572888327496d327a36737c02f64d894 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 14 Mar 2024 06:54:00 +0100
Subject: chore: refactor `Comment.Language.fromPath`

---
 app/Comment.hs          | 11 ++---------
 app/Comment/Language.hs |  8 ++++++--
 2 files changed, 8 insertions(+), 11 deletions(-)

(limited to 'app')

diff --git a/app/Comment.hs b/app/Comment.hs
index 123acec..febd47e 100644
--- a/app/Comment.hs
+++ b/app/Comment.hs
@@ -50,15 +50,8 @@ data Point = Point
 getComments :: Git.CommitHash -> FilePath -> IO [Comment]
 getComments commitHash filePath =
   fmap mergeLineComments
-    . ( extractComments
-          filePath
-          ( -- TODO Support amiguous file languages
-            --
-            -- @backlog
-            N.head language
-          )
-          . LB.toStrict
-      )
+    . extractComments filePath language
+    . LB.toStrict
     =<< catch
       (Git.readTextFileOfBS commitHash filePath)
       (\(_ :: E.CannotReadFile) -> pure "")
diff --git a/app/Comment/Language.hs b/app/Comment/Language.hs
index 7a9963f..3f8c7a4 100644
--- a/app/Comment/Language.hs
+++ b/app/Comment/Language.hs
@@ -25,9 +25,13 @@ newtype Language = Language {languageKey :: L.LanguageKey}
   deriving (Eq, Show, Generic)
   deriving newtype (Binary)
 
-fromPath :: FilePath -> N.NonEmpty Language
+-- TODO Support amiguous file languages
+--
+-- @backlog
+fromPath :: FilePath -> Language
 fromPath fp =
-  fromMaybe (throw $ E.UnknownFile fp)
+  N.head
+    . fromMaybe (throw $ E.UnknownFile fp)
     . N.nonEmpty
     . map (Language . L.languageName)
     $ L.languagesForPath fp
-- 
cgit v1.2.3