more OsPath conversion
Sponsored-by: mycroft
This commit is contained in:
parent
917c43f31f
commit
22c2451e26
11 changed files with 46 additions and 44 deletions
|
@ -19,7 +19,7 @@ import Types.Direction
|
|||
import Utility.PID
|
||||
import Utility.QuickCheck
|
||||
import Utility.Url
|
||||
import Utility.FileSystemEncoding
|
||||
import Utility.OsPath
|
||||
|
||||
import Data.Time.Clock.POSIX
|
||||
import Control.Concurrent
|
||||
|
@ -99,7 +99,7 @@ class Transferrable t where
|
|||
descTransfrerrable :: t -> Maybe String
|
||||
|
||||
instance Transferrable AssociatedFile where
|
||||
descTransfrerrable (AssociatedFile af) = fromRawFilePath <$> af
|
||||
descTransfrerrable (AssociatedFile af) = fromOsPath <$> af
|
||||
|
||||
instance Transferrable URLString where
|
||||
descTransfrerrable = Just
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue