input-output-hk/foliage
1
1
Fork 0
mirror of https://github.com/input-output-hk/foliage.git synced 2024-10-05 16:37:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

Improve some instances of Show

Browse Source
This commit is contained in:
Andrea Bedini 2023-09-05 12:02:13 +08:00 committed by Andrea Bedini
parent c1d2b0e0b2
commit bae0096f26
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/Foliage/PrepareSource.hs
View File

@ -23,9 +23,16 @@ import System.Directory qualified as IO
import System.FilePath ((<.>), (</>))
data PrepareSourceRule = PrepareSourceRule PackageId PackageVersionSpec
deriving (Show, Eq, Generic)
deriving (Eq, Generic)
deriving (Hashable, Binary, NFData)
instance Show PrepareSourceRule where
show (PrepareSourceRule pkgId pkgSpec) =
"prepareSource "
++ prettyShow pkgId
++ " "
++ show pkgSpec
type instance RuleResult PrepareSourceRule = FilePath
prepareSource :: PackageId -> PackageVersionSpec -> Action FilePath

5
app/Foliage/RemoteAsset.hs
View File

@ -25,9 +25,12 @@ import System.Directory (createDirectoryIfMissing)
import System.Exit (ExitCode (..))
newtype RemoteAsset = RemoteAsset URI
deriving (Show, Eq)
deriving (Eq)
deriving (Hashable, Binary, NFData) via URI
instance Show RemoteAsset where
show (RemoteAsset uri) = "fetchRemoteAsset " ++ show uri
type instance RuleResult RemoteAsset = FilePath
fetchRemoteAsset :: URI -> Action FilePath