Support GHC 9.4 (#32)

Fixes https://github.com/aristanetworks/nix-serve-ng/issues/31
This commit is contained in:
Gabriella Gonzalez
2023-12-18 07:16:55 -08:00
committed by GitHub
parent f3931b8120
commit 21e65cb4c6
3 changed files with 6 additions and 5 deletions

View File

@@ -162,8 +162,9 @@ data PathInfo = PathInfo
fromCPathInfo :: CPathInfo -> IO PathInfo
fromCPathInfo CPathInfo{ deriver, narHash, narSize, references, sigs } = do
let String_{ data_ } = deriver
deriver_ <-
if data_ (deriver :: String_) == Foreign.nullPtr
if data_ == Foreign.nullPtr
then return Nothing
else fmap Just (fromString_ deriver)