fix build with old base
i386ancient has a base too old for NE.singleton
This commit is contained in:
parent
1d8bf92724
commit
75b3f0eb75
2 changed files with 8 additions and 6 deletions
|
@ -141,7 +141,7 @@ storeParsed c repo = updateLocation $ repo
|
|||
store' :: ConfigKey -> ConfigValue -> Repo -> Repo
|
||||
store' k v repo = repo
|
||||
{ config = M.singleton k v `M.union` config repo
|
||||
, fullconfig = M.unionWith (<>) (M.singleton k (NE.singleton v))
|
||||
, fullconfig = M.unionWith (<>) (M.singleton k (v NE.:| []))
|
||||
(fullconfig repo)
|
||||
}
|
||||
|
||||
|
@ -205,7 +205,7 @@ parse s st
|
|||
eq = fromIntegral (ord '=')
|
||||
|
||||
sep c = M.fromListWith (<>)
|
||||
. map (\(k,v) -> (ConfigKey k, (NE.singleton (mkval v))) )
|
||||
. map (\(k,v) -> (ConfigKey k, mkval v NE.:| []))
|
||||
. map (S.break (== c))
|
||||
|
||||
mkval v
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue