From ac21c19b7e44362bd73c659e5abc7a2df2f45a8b Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Fri, 11 Jun 2021 11:26:44 +0200
Subject: [PATCH] Remove unnecessary micro version stripping

Since we can specify version bounds now, this is unnecessary.
---
 lib/GHCup/Platform.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lib/GHCup/Platform.hs b/lib/GHCup/Platform.hs
index e930f45..b26d032 100644
--- a/lib/GHCup/Platform.hs
+++ b/lib/GHCup/Platform.hs
@@ -98,7 +98,6 @@ getPlatform = do
         either (const Nothing) Just
           . versioning
           -- TODO: maybe do this somewhere else
-          . getMajorVersion
           . decUTF8Safe'
         <$> getDarwinVersion
       pure $ PlatformResult { _platform = Darwin, _distroVersion = ver }
@@ -112,7 +111,6 @@ getPlatform = do
   lift $ $(logDebug) [i|Identified Platform as: #{prettyShow pfr}|]
   pure pfr
  where
-  getMajorVersion = T.intercalate "." . take 2 . T.split (== '.')
   getFreeBSDVersion = lift $ fmap _stdOut $ executeOut "freebsd-version" [] Nothing
   getDarwinVersion = lift $ fmap _stdOut $ executeOut "sw_vers"
                                                         ["-productVersion"]