more OsPath conversion (602/749)
Sponsored-by: Brock Spratlen
This commit is contained in:
parent
2d1db7986c
commit
a5d48edd94
25 changed files with 227 additions and 187 deletions
|
@ -6,6 +6,7 @@
|
|||
-}
|
||||
|
||||
{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, FlexibleInstances #-}
|
||||
{-# LANGUAGE CPP #-}
|
||||
|
||||
module Git.Types where
|
||||
|
||||
|
@ -107,8 +108,10 @@ instance FromConfigValue S.ByteString where
|
|||
instance FromConfigValue String where
|
||||
fromConfigValue = decodeBS . fromConfigValue
|
||||
|
||||
#ifdef WITH_OSPATH
|
||||
instance FromConfigValue OsPath where
|
||||
fromConfigValue v = toOsPath (fromConfigValue v :: S.ByteString)
|
||||
#endif
|
||||
|
||||
instance Show ConfigValue where
|
||||
show = fromConfigValue
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue