Skip to content

Commit

Permalink
Set dependency version
Browse files Browse the repository at this point in the history
  • Loading branch information
istathar committed Apr 24, 2022
1 parent 4671849 commit 1dceb01
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 5 deletions.
2 changes: 1 addition & 1 deletion core-data/core-data.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -46,7 +46,7 @@ library
, base >=4.11 && <5
, bytestring
, containers
, core-text >=0.3.4
, core-text >=0.3.7
, hashable >=1.2
, prettyprinter >=1.6.2
, scientific
Expand Down
2 changes: 1 addition & 1 deletion core-data/package.yaml
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@ dependencies:
- text
- unordered-containers
- vector
- core-text >= 0.3.4
- core-text >= 0.3.7

library:
source-dirs: lib
Expand Down
6 changes: 3 additions & 3 deletions core-program/lib/Core/Program/Metadata.hs
Original file line number Diff line number Diff line change
Expand Up @@ -150,12 +150,12 @@ readCabalFile = runIO $ do

parseCabalFile :: Bytes -> Map Rope Rope
parseCabalFile contents =
let breakup = intoMap . fmap (breakRope (== ':')) . breakLines . fromBytes
let breakup = intoMap . fmap (breakRope' (== ':')) . breakLines . fromBytes
in breakup contents

-- this should probably be a function in Core.Text.Rope
breakRope :: (Char -> Bool) -> Rope -> (Rope, Rope)
breakRope predicate text =
breakRope' :: (Char -> Bool) -> Rope -> (Rope, Rope)
breakRope' predicate text =
let pieces = take 2 (breakPieces predicate text)
in case pieces of
[] -> ("", "")
Expand Down

0 comments on commit 1dceb01

Please sign in to comment.