thma/LtuPatternFactory
1
1
Fork 0
mirror of https://github.com/thma/LtuPatternFactory.git synced 2024-11-25 19:15:33 +03:00
Code Issues Projects Releases Wiki Activity

fix tests

Browse Source
This commit is contained in:
Mahler, Thomas 2021-12-13 17:40:56 +01:00
parent 28a434670d
commit f06bfd4f2e
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

@ -25,3 +25,5 @@ cabal.project.local~
cabal.config
out/
*.lock
*.txt
*.json

2
src/JsonPersistence.hs
View File

@ -39,4 +39,4 @@ class (ToJSON a, FromJSON a, Typeable a) => Entity a where
-- | compute path of data file
getPath :: TypeRep -> String -> String
getPath tr id = ".stack-work/" ++ show tr ++ "." ++ id ++ ".json"
getPath tr id = show tr ++ "." ++ id ++ ".json"

2
src/SimplePersistence.hs
View File

@ -38,4 +38,4 @@ class (Show a, Read a, Typeable a) => Entity a where
-- | compute path of data file
getPath :: TypeRep -> String -> FilePath
getPath tr id = ".stack-work/" ++ show tr ++ "." ++ id ++ ".txt"
getPath tr id = show tr ++ "." ++ id ++ ".txt"