temp: Check if readDesc is called for sdl

compsoc-edinburgh · Aug 10, 2024 · 9bf770a · 9bf770a
1 parent 92df3f7
commit 9bf770a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Setup.hs b/Setup.hs
@@ -10,6 +10,7 @@ import Distribution.Simple
     ( Args
     , UserHooks
     , confHook
+    , readDesc
     , defaultMain
     , defaultMainWithHooks
     , simpleUserHooks
@@ -37,6 +38,7 @@ main = case buildOS of
     Windows -> defaultMainWithHooks simpleUserHooks
         { confHook = sdlConfHook
         , preBuild = sdlPreBuild
+        , readDesc = sdlReadDesc
         }
     _ -> defaultMain
 
@@ -86,3 +88,8 @@ sdlPreBuild args flags = do
     print flags
     putStrLn "\ESC[34mRunning custom SDL pre-build hook\ESC[m"
     pure emptyHookedBuildInfo
+
+sdlReadDesc :: IO (GenericPackageDescription)
+sdlReadDesc = do
+    putStrLn "\ESC[34mReading .cabal file\ESC[m"
+    pure Nothing