Support GHC 9.4 (#32)
Fixes https://github.com/aristanetworks/nix-serve-ng/issues/31
This commit is contained in:
committed by
GitHub
parent
f3931b8120
commit
21e65cb4c6
@@ -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)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user