mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with old ghc

Browse source
This commit is contained in:
Joey Hess 2019-01-18 14:08:10 -04:00
parent a5764c4a78
commit e8ff3c3e73
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Types/UUID.hs
View file

@ -15,6 +15,7 @@ import qualified Data.UUID as U
import Data.Maybe import Data.Maybe
import Data.String import Data.String
import Data.ByteString.Builder import Data.ByteString.Builder
import qualified Data.Semigroup as Sem
import Utility.FileSystemEncoding import Utility.FileSystemEncoding
import qualified Utility.SimpleProtocol as Proto import qualified Utility.SimpleProtocol as Proto
@ -64,7 +65,7 @@ isUUID = isJust . U.fromString
-- A description of a UUID. -- A description of a UUID.
newtype UUIDDesc = UUIDDesc B.ByteString newtype UUIDDesc = UUIDDesc B.ByteString
deriving (Eq, Monoid, Semigroup, IsString) deriving (Eq, Sem.Semigroup, Monoid, IsString)
fromUUIDDesc :: UUIDDesc -> String fromUUIDDesc :: UUIDDesc -> String
fromUUIDDesc (UUIDDesc d) = decodeBS d fromUUIDDesc (UUIDDesc d) = decodeBS d